inherited fmDealsEdit: TfmDealsEdit
  Caption = #1050#1086#1088#1088#1077#1082#1094#1080#1103' '#1089#1076#1077#1083#1082#1080
  ClientHeight = 666
  ClientWidth = 978
  Constraints.MinHeight = 693
  Constraints.MinWidth = 750
  OnShow = FormShow
  ExplicitWidth = 986
  ExplicitHeight = 700
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 639
    Width = 978
    ExplicitTop = 639
    ExplicitWidth = 978
  end
  inherited Panel1: TPanel
    Top = 594
    Width = 978
    ExplicitTop = 594
    ExplicitWidth = 978
    inherited BitBtn1: TBitBtn
      Left = 103
      Default = False
      Kind = bkCustom
      ExplicitLeft = 103
    end
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 0
    Width = 978
    Height = 121
    Align = alTop
    BevelInner = bvLowered
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object Label1: TLabel
      Left = 4
      Top = 4
      Width = 52
      Height = 13
      Caption = #8470' '#1089#1076#1077#1083#1082#1080
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 232
      Top = 4
      Width = 77
      Height = 13
      Caption = #1044#1086#1073#1072#1074#1083#1077#1085#1072' '#1074' '#1075'.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 4
      Top = 42
      Width = 94
      Height = 13
      Caption = #1047#1072#1088#1077#1075#1080#1089#1090#1088#1080#1088#1086#1074#1072#1085#1072
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 388
      Top = 42
      Width = 59
      Height = 13
      Caption = #1043#1088#1091#1079' '#1074#1099#1076#1072#1085
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 486
      Top = 82
      Width = 54
      Height = 13
      Caption = #1057#1090#1086#1080#1084#1086#1089#1090#1100
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 564
      Top = 82
      Width = 35
      Height = 13
      Caption = #1041#1072#1083#1072#1085#1089
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 642
      Top = 82
      Width = 22
      Height = 13
      Caption = #1053#1044#1057
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 118
      Top = 42
      Width = 85
      Height = 13
      Caption = #1054#1092#1086#1088#1084#1083#1077#1085#1072' '#1074' '#1055#1054
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 118
      Top = 4
      Width = 29
      Height = 13
      Caption = #8470' '#1058#1053
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 232
      Top = 42
      Width = 62
      Height = 13
      Caption = #1054#1090#1087#1088#1072#1074#1083#1077#1085#1072
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 310
      Top = 42
      Width = 49
      Height = 13
      Caption = #1055#1088#1080#1077#1093#1072#1083#1072
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 4
      Top = 82
      Width = 88
      Height = 13
      Caption = #1047#1072#1088#1077#1075#1080#1089#1090#1088#1080#1088#1086#1074#1072#1083
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label13: TLabel
      Left = 118
      Top = 82
      Width = 46
      Height = 13
      Caption = #1054#1092#1086#1088#1084#1080#1083
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label14: TLabel
      Left = 260
      Top = 82
      Width = 151
      Height = 13
      Caption = #1055#1086#1089#1083#1077#1076#1085#1080#1081' '#1082#1086#1088#1088#1077#1082#1090#1086#1088' '#1089#1076#1077#1083#1082#1080
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label20: TLabel
      Left = 486
      Top = 4
      Width = 75
      Height = 13
      Caption = #1057#1090#1072#1090#1091#1089' '#1089#1076#1077#1083#1082#1080
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label21: TLabel
      Left = 486
      Top = 42
      Width = 57
      Height = 13
      Caption = #1058#1080#1087' '#1089#1076#1077#1083#1082#1080
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object edDEID: TDBEdit
      Left = 4
      Top = 18
      Width = 110
      Height = 21
      TabStop = False
      Color = 14677503
      DataField = 'DEID'
      DataSource = dlgDS
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 2
    end
    object edOFOFFICE: TDBEdit
      Left = 232
      Top = 18
      Width = 220
      Height = 21
      TabStop = False
      Color = 14677503
      DataField = 'OFOFFICE'
      DataSource = dlgDS
      ReadOnly = True
      TabOrder = 3
    end
    object edDEENTERED: TDBEdit
      Left = 4
      Top = 56
      Width = 110
      Height = 21
      TabStop = False
      Color = 14677503
      DataField = 'DEENTERED'
      DataSource = dlgDS
      ReadOnly = True
      TabOrder = 4
    end
    object edDEDATERECIPIENT: TDBEdit
      Left = 388
      Top = 56
      Width = 64
      Height = 21
      TabStop = False
      Color = 14677503
      DataField = 'DEDATERECIPIENT'
      DataSource = dlgDS
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 5
    end
    object edDECOST: TDBEdit
      Left = 486
      Top = 96
      Width = 78
      Height = 21
      TabStop = False
      Color = 14677503
      DataField = 'DECOST'
      DataSource = dlgDS
      ReadOnly = True
      TabOrder = 6
    end
    object edDEBALANCE: TDBEdit
      Left = 564
      Top = 96
      Width = 78
      Height = 21
      TabStop = False
      Color = 14677503
      DataField = 'DEBALANCE'
      DataSource = dlgDS
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 7
    end
    object edDENDS: TDBEdit
      Left = 642
      Top = 96
      Width = 78
      Height = 21
      TabStop = False
      Color = 14677503
      DataField = 'DENDS'
      DataSource = dlgDS
      ReadOnly = True
      TabOrder = 8
    end
    object edDEDATEINSEND: TDBEdit
      Left = 118
      Top = 56
      Width = 110
      Height = 21
      TabStop = False
      Color = 14677503
      DataField = 'DEDATEINSEND'
      DataSource = dlgDS
      ReadOnly = True
      TabOrder = 9
    end
    object edDEWAYBILL: TDBEdit
      Left = 118
      Top = 18
      Width = 110
      Height = 21
      DataField = 'DEWAYBILL'
      DataSource = dlgDS
      TabOrder = 0
    end
    object edDEDATEOUTSEND: TDBEdit
      Left = 232
      Top = 56
      Width = 64
      Height = 21
      TabStop = False
      Color = 14677503
      DataField = 'DEDATEOUTSEND'
      DataSource = dlgDS
      ReadOnly = True
      TabOrder = 10
    end
    object edDEDATEINDEST: TDBEdit
      Left = 310
      Top = 56
      Width = 64
      Height = 21
      TabStop = False
      Color = 14677503
      DataField = 'DEDATEINDEST'
      DataSource = dlgDS
      ReadOnly = True
      TabOrder = 11
    end
    object edDEUSERINS: TDBEdit
      Left = 4
      Top = 96
      Width = 110
      Height = 21
      TabStop = False
      Color = 14677503
      DataField = 'DEUSERINS'
      DataSource = dlgDS
      ReadOnly = True
      TabOrder = 12
    end
    object edDEUSERCLOSE: TDBEdit
      Left = 118
      Top = 96
      Width = 110
      Height = 21
      TabStop = False
      Color = 14677503
      DataField = 'DEUSERCLOSE'
      DataSource = dlgDS
      ReadOnly = True
      TabOrder = 13
    end
    object edDEUSERUPD: TDBEdit
      Left = 232
      Top = 96
      Width = 110
      Height = 21
      TabStop = False
      Color = 14677503
      DataField = 'DEUSERUPD'
      DataSource = dlgDS
      ReadOnly = True
      TabOrder = 14
    end
    object edDEWHENUPD: TDBEdit
      Left = 342
      Top = 96
      Width = 110
      Height = 21
      TabStop = False
      Color = 14677503
      DataField = 'DEWHENUPD'
      DataSource = dlgDS
      ReadOnly = True
      TabOrder = 15
    end
    object btnCalcAll: TBitBtn
      Left = 616
      Top = 45
      Width = 104
      Height = 36
      Caption = #1056#1072#1089#1095#1105#1090' '#1089#1090#1086#1080#1084#1086#1089#1090#1080
      Default = True
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 16
      WordWrap = True
      OnClick = btnCalcAllClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333333333333333333FFFFFFFFFFF33330000000000
        03333377777777777F33333003333330033333377FF333377F33333300333333
        0333333377FF33337F3333333003333303333333377FF3337333333333003333
        333333333377FF3333333333333003333333333333377FF33333333333330033
        3333333333337733333333333330033333333333333773333333333333003333
        33333333337733333F3333333003333303333333377333337F33333300333333
        03333333773333337F33333003333330033333377FFFFFF77F33330000000000
        0333337777777777733333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object edSTATUS: TDBEdit
      Left = 486
      Top = 18
      Width = 234
      Height = 21
      TabStop = False
      Color = 14677503
      DataField = 'STATUS'
      DataSource = dlgDS
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 17
    end
    object edDETYPE: TcxDBLookupComboBox
      Left = 486
      Top = 56
      DataBinding.DataField = 'DETYPE'
      DataBinding.DataSource = dlgDS
      Properties.DropDownListStyle = lsFixedList
      Properties.ImmediatePost = True
      Properties.KeyFieldNames = 'SDID'
      Properties.ListColumns = <
        item
          FieldName = 'SDNAME'
        end>
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = dsDealsType
      Style.BorderStyle = ebs3D
      Style.Shadow = False
      Style.ButtonStyle = btsDefault
      TabOrder = 1
      Width = 124
    end
  end
  object pcAll: TcxPageControl [3]
    Left = 0
    Top = 121
    Width = 978
    Height = 473
    ActivePage = tsServices
    Align = alClient
    HotTrack = True
    Style = 7
    TabOrder = 3
    TabPosition = tpBottom
    ClientRectBottom = 452
    ClientRectLeft = 1
    ClientRectRight = 977
    ClientRectTop = 1
    object tsMain: TcxTabSheet
      Caption = #1050#1083#1080#1077#1085#1090#1099
      ImageIndex = 0
      object Panel9: TPanel
        Left = 0
        Top = 0
        Width = 976
        Height = 451
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object Label102: TLabel
          Left = 3
          Top = 260
          Width = 79
          Height = 13
          Caption = #1058#1072#1088#1080#1092#1085#1099#1081' '#1087#1083#1072#1085
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label15: TLabel
          Left = 4
          Top = 4
          Width = 100
          Height = 13
          Caption = #1055#1091#1085#1082#1090' '#1086#1090#1087#1088#1072#1074#1083#1077#1085#1080#1103
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label16: TLabel
          Left = 3
          Top = 98
          Width = 93
          Height = 13
          Caption = #1055#1091#1085#1082#1090' '#1085#1072#1079#1085#1072#1095#1077#1085#1080#1103
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label17: TLabel
          Left = 186
          Top = 4
          Width = 68
          Height = 13
          Caption = #1054#1090#1087#1088#1072#1074#1080#1090#1077#1083#1100
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label18: TLabel
          Left = 185
          Top = 99
          Width = 61
          Height = 13
          Caption = #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label19: TLabel
          Left = 3
          Top = 190
          Width = 296
          Height = 13
          Caption = #1055#1083#1072#1090#1077#1083#1100#1097#1080#1082' - 3-'#1077' '#1083#1080#1094#1086' ('#1085#1077' '#1086#1090#1087#1088#1072#1074#1080#1090#1077#1083#1100' '#1080' '#1085#1077' '#1087#1086#1083#1091#1095#1072#1090#1077#1083#1100')'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label22: TLabel
          Left = 4
          Top = 44
          Width = 100
          Height = 13
          Caption = #1040#1076#1088#1077#1089' '#1086#1090#1087#1088#1072#1074#1080#1090#1077#1083#1103
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label23: TLabel
          Left = 440
          Top = 44
          Width = 157
          Height = 13
          Caption = #1050#1086#1085#1090#1072#1082#1090#1085#1086#1077' '#1083#1080#1094#1086' '#1086#1090#1087#1088#1072#1074#1080#1090#1077#1083#1103
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label24: TLabel
          Left = 3
          Top = 138
          Width = 94
          Height = 13
          Caption = #1040#1076#1088#1077#1089' '#1087#1086#1083#1091#1095#1072#1090#1077#1083#1103
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label25: TLabel
          Left = 439
          Top = 138
          Width = 151
          Height = 13
          Caption = #1050#1086#1085#1090#1072#1082#1090#1085#1086#1077' '#1083#1080#1094#1086' '#1087#1086#1083#1091#1095#1072#1090#1077#1083#1103
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label26: TLabel
          Left = 4
          Top = 333
          Width = 67
          Height = 13
          Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object sbPERSON3: TSpeedButton
          Left = 695
          Top = 204
          Width = 23
          Height = 22
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            0400000000000001000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
            300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
            330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
            333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
            339977FF777777773377000BFB03333333337773FF733333333F333000333333
            3300333777333333337733333333333333003333333333333377333333333333
            333333333333333333FF33333333333330003333333333333777333333333333
            3000333333333333377733333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = sbPERSON3Click
        end
        object sbReciever: TSpeedButton
          Left = 695
          Top = 111
          Width = 23
          Height = 22
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            0400000000000001000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
            300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
            330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
            333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
            339977FF777777773377000BFB03333333337773FF733333333F333000333333
            3300333777333333337733333333333333003333333333333377333333333333
            333333333333333333FF33333333333330003333333333333777333333333333
            3000333333333333377733333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = sbRecieverClick
        end
        object sbSender: TSpeedButton
          Left = 696
          Top = 18
          Width = 23
          Height = 22
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            0400000000000001000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
            300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
            330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
            333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
            339977FF777777773377000BFB03333333337773FF733333333F333000333333
            3300333777333333337733333333333333003333333333333377333333333333
            333333333333333333FF33333333333330003333333333333777333333333333
            3000333333333333377733333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = sbSenderClick
        end
        object sbShablon: TSpeedButton
          Left = 236
          Top = 274
          Width = 23
          Height = 22
          Hint = #1064#1072#1073#1083#1086#1085#1099' '#1089#1076#1077#1083#1082#1080' '#1082#1083#1080#1077#1085#1090#1086#1074
          Flat = True
          Glyph.Data = {
            76060000424D7606000000000000360000002800000014000000140000000100
            2000000000004006000000000000000000000000000000000000FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            00000000000000000000000000000000000000000000FF00FF00FF00FF00FF00
            FF00848684008486840084868400848684008486840084868400848684008486
            8400848684008486840084868400848684008486840084868400848684008486
            840000000000FF00FF00FF00FF00000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            00000000000000000000000000008486840000000000FF00FF00FF00FF000000
            0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFF
            FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000008486
            840000000000FF00FF00FF00FF0000000000FFFFFF0000000000000000000000
            0000FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00000000000000
            000000000000FFFFFF00000000008486840000000000FF00FF00FF00FF000000
            0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000
            0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000008486
            840000000000FF00FF00FF00FF0000000000FFFFFF0000000000000000000000
            000000000000FFFFFF000000000000000000FFFFFF0000000000000000000000
            000000000000FFFFFF00000000008486840000000000FF00FF00FF00FF000000
            0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000
            0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000008486
            840000000000FF00FF00FF00FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00000000000000000000000000FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00000000008486840000000000FF00FF00FF00FF000000
            00000000FF000000FF000000FF000000FF00FFFFFF0000000000FFFFFF00FFFF
            FF0000000000FFFFFF000000FF000000FF000000FF000000FF00000000008486
            840000000000FF00FF00FF00FF0000000000FFFFFF000000FF000000FF00FFFF
            FF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFFFF000000
            FF000000FF00FFFFFF00000000008486840000000000FF00FF00FF00FF000000
            0000FFFFFF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00000000000000
            0000FFFFFF00FFFFFF00FFFFFF00FFFFFF000000FF000000FF00000000008486
            840000000000FF00FF00FF00FF0000000000FFFFFF000000FF000000FF00FFFF
            FF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF000000FF00FFFF
            FF00FFFFFF000000FF00000000008486840000000000FF00FF00FF00FF000000
            00000000FF000000FF000000FF00FFFFFF00FFFFFF00FFFFFF00000000000000
            0000FFFFFF00FFFFFF000000FF000000FF000000FF000000FF00000000008486
            840000000000FF00FF00FF00FF0000000000FFFFFF000000FF000000FF00FFFF
            FF00FFFFFF00FFFFFF000000000000000000FFFFFF00FFFFFF00FFFFFF000000
            FF000000FF00FFFFFF00000000008486840000000000FF00FF00FF00FF000000
            0000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFF
            FF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000008486
            8400FF00FF00FF00FF00FF00FF00000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
          ParentShowHint = False
          ShowHint = True
          OnClick = sbShablonClick
        end
        object edADRESS_R: TDBEdit
          Left = 3
          Top = 152
          Width = 436
          Height = 21
          TabStop = False
          DataField = 'ADRESS_R'
          DataSource = dlgDS
          ReadOnly = True
          TabOrder = 0
        end
        object edADRESS_S: TDBEdit
          Left = 4
          Top = 58
          Width = 436
          Height = 21
          TabStop = False
          DataField = 'ADRESS_S'
          DataSource = dlgDS
          ReadOnly = True
          TabOrder = 1
        end
        object edDECOMMENT: TDBMemo
          Left = 4
          Top = 352
          Width = 715
          Height = 79
          DataField = 'DECOMMENT'
          DataSource = dlgDS
          ScrollBars = ssVertical
          TabOrder = 2
          WantReturns = False
        end
        object edDEOFIDDEST: TcxDBLookupComboBox
          Left = 3
          Top = 112
          DataBinding.DataField = 'DEOFIDDEST'
          DataBinding.DataSource = dlgDS
          ParentFont = False
          Properties.DropDownListStyle = lsFixedList
          Properties.ImmediatePost = True
          Properties.KeyFieldNames = 'OFID'
          Properties.ListColumns = <
            item
              FieldName = 'OFOFFICE'
            end>
          Properties.ListOptions.ShowHeader = False
          Properties.ListSource = dsTownDest
          Style.BorderStyle = ebs3D
          Style.Font.Charset = DEFAULT_CHARSET
          Style.Font.Color = clMaroon
          Style.Font.Height = -11
          Style.Font.Name = 'Tahoma'
          Style.Font.Style = []
          Style.Shadow = True
          Style.ButtonStyle = btsDefault
          Style.IsFontAssigned = True
          TabOrder = 3
          Width = 165
        end
        object edDEOFIDSEND: TcxDBLookupComboBox
          Left = 4
          Top = 18
          DataBinding.DataField = 'DEOFIDSEND'
          DataBinding.DataSource = dlgDS
          ParentFont = False
          Properties.DropDownListStyle = lsFixedList
          Properties.ImmediatePost = True
          Properties.KeyFieldNames = 'OFID'
          Properties.ListColumns = <
            item
              FieldName = 'OFOFFICE'
            end>
          Properties.ListOptions.ShowHeader = False
          Properties.ListSource = dsTownSend
          Style.BorderStyle = ebs3D
          Style.Font.Charset = DEFAULT_CHARSET
          Style.Font.Color = clMaroon
          Style.Font.Height = -11
          Style.Font.Name = 'Tahoma'
          Style.Font.Style = []
          Style.Shadow = True
          Style.ButtonStyle = btsDefault
          Style.IsFontAssigned = True
          TabOrder = 4
          Width = 165
        end
        object edFIO_R: TDBEdit
          Left = 439
          Top = 152
          Width = 250
          Height = 21
          TabStop = False
          DataField = 'FIO_R'
          DataSource = dlgDS
          ReadOnly = True
          TabOrder = 5
        end
        object edFIO_S: TDBEdit
          Left = 440
          Top = 58
          Width = 250
          Height = 21
          TabStop = False
          DataField = 'FIO_S'
          DataSource = dlgDS
          ReadOnly = True
          TabOrder = 6
        end
        object edPERSON3: TDBEdit
          Left = 3
          Top = 204
          Width = 686
          Height = 21
          TabStop = False
          DataField = 'PERSON3'
          DataSource = dlgDS
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          ReadOnly = True
          TabOrder = 7
        end
        object edRECIEVER: TDBEdit
          Left = 185
          Top = 113
          Width = 504
          Height = 21
          TabStop = False
          DataField = 'RECIEVER'
          DataSource = dlgDS
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          ReadOnly = True
          TabOrder = 8
        end
        object edSENDER: TDBEdit
          Left = 186
          Top = 18
          Width = 504
          Height = 21
          TabStop = False
          DataField = 'SENDER'
          DataSource = dlgDS
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          ReadOnly = True
          TabOrder = 9
        end
        object edTTID: TcxDBLookupComboBox
          Left = 3
          Top = 274
          DataBinding.DataField = 'TTID'
          DataBinding.DataSource = dlgDS
          Properties.DropDownListStyle = lsFixedList
          Properties.ImmediatePost = True
          Properties.KeyFieldNames = 'TTID'
          Properties.ListColumns = <
            item
              FieldName = 'TTNAME'
            end>
          Properties.ListOptions.ShowHeader = False
          Properties.ListSource = dsTarifTypes
          Style.BorderStyle = ebs3D
          Style.Shadow = False
          Style.ButtonStyle = btsDefault
          TabOrder = 10
          Width = 221
        end
      end
    end
    object tsServices: TcxTabSheet
      Caption = #1059#1089#1083#1091#1075#1080
      ImageIndex = 1
      object ToolBar1: TToolBar
        Left = 0
        Top = 0
        Width = 976
        Height = 30
        AutoSize = True
        BorderWidth = 2
        Images = DMInv.ilActive
        TabOrder = 0
        Transparent = True
        object tbEditK: TToolButton
          Left = 0
          Top = 0
          Hint = #1042#1099#1073#1086#1088' '#1091#1089#1083#1091#1075' '#1080' '#1087#1083#1072#1090#1077#1083#1100#1097#1080#1082#1086#1074
          ImageIndex = 13
          ParentShowHint = False
          ShowHint = True
          OnClick = tbEditKClick
        end
      end
      object pcInvoice: TcxPageControl
        Left = 0
        Top = 30
        Width = 976
        Height = 421
        ActivePage = tsInvItems
        Align = alClient
        HotTrack = True
        Style = 7
        TabOrder = 1
        ClientRectBottom = 420
        ClientRectLeft = 1
        ClientRectRight = 975
        ClientRectTop = 21
        object tsInvoice: TcxTabSheet
          Caption = #1057#1095#1105#1090
          ImageIndex = 0
          object Panel5: TPanel
            Left = 0
            Top = 266
            Width = 974
            Height = 133
            Align = alTop
            BevelInner = bvLowered
            TabOrder = 0
            object lb31: TLabel
              Left = 2
              Top = 2
              Width = 970
              Height = 13
              Align = alTop
              Caption = ' 3-'#1077' '#1083#1080#1094#1086':'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clMaroon
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = [fsBold]
              ParentFont = False
              ExplicitWidth = 56
            end
            object Label55: TLabel
              Left = 4
              Top = 15
              Width = 31
              Height = 13
              Caption = #1057#1091#1084#1084#1072
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clNavy
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
            end
            object Label56: TLabel
              Left = 4
              Top = 54
              Width = 35
              Height = 13
              Caption = #1041#1072#1083#1072#1085#1089
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clNavy
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
            end
            object Label57: TLabel
              Left = 4
              Top = 93
              Width = 22
              Height = 13
              Caption = #1053#1044#1057
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clNavy
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
            end
            object Label58: TLabel
              Left = 104
              Top = 15
              Width = 108
              Height = 13
              Caption = #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100' '#1087#1083#1072#1090#1077#1078#1072
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clNavy
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
            end
            object Label59: TLabel
              Left = 268
              Top = 15
              Width = 45
              Height = 13
              Caption = #8470' '#1089#1095#1105#1090#1072
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clNavy
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
            end
            object Label60: TLabel
              Left = 268
              Top = 54
              Width = 125
              Height = 13
              Caption = #1042#1099#1076#1072#1090#1100' '#1075#1088#1091#1079' '#1073#1077#1079' '#1086#1087#1083#1072#1090#1099
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clNavy
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
            end
            object edDIAMOUNT_3: TDBEdit
              Left = 4
              Top = 30
              Width = 78
              Height = 21
              TabStop = False
              Color = 14677503
              DataField = 'DIAMOUNT'
              DataSource = dsInv3
              ReadOnly = True
              TabOrder = 0
            end
            object edDIBALANCE_3: TDBEdit
              Left = 4
              Top = 69
              Width = 78
              Height = 21
              TabStop = False
              Color = 14677503
              DataField = 'DIBALANCE'
              DataSource = dsInv3
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clRed
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
              ReadOnly = True
              TabOrder = 1
            end
            object edDINDS_3: TDBEdit
              Left = 4
              Top = 108
              Width = 78
              Height = 21
              TabStop = False
              Color = 14677503
              DataField = 'DINDS'
              DataSource = dsInv3
              ReadOnly = True
              TabOrder = 2
            end
            object edDIPAYTYPE_3: TDBRadioGroup
              Left = 104
              Top = 54
              Width = 150
              Height = 75
              Caption = '         '#1057#1087#1086#1089#1086#1073' '#1086#1087#1083#1072#1090#1099'   '
              DataField = 'DIPAYTYPE'
              DataSource = dsInv3
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clNavy
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              Items.Strings = (
                #1053#1072#1083#1080#1095#1085#1099#1081
                #1041#1077#1079#1085#1072#1083#1080#1095#1085#1099#1081)
              ParentBackground = True
              ParentFont = False
              TabOrder = 3
              Values.Strings = (
                '1101'
                '1102')
            end
            object edOBID_3: TcxDBLookupComboBox
              Left = 104
              Top = 30
              DataBinding.DataField = 'OBID'
              DataBinding.DataSource = dsInv3
              Properties.DropDownListStyle = lsFixedList
              Properties.ImmediatePost = True
              Properties.KeyFieldNames = 'OBID'
              Properties.ListColumns = <
                item
                  FieldName = 'OBNAME'
                end>
              Properties.ListOptions.ShowHeader = False
              Properties.ListSource = dsBills_S
              Style.BorderStyle = ebs3D
              Style.Shadow = False
              Style.ButtonStyle = btsDefault
              TabOrder = 4
              Width = 150
            end
            object edDIID_3: TDBEdit
              Left = 268
              Top = 30
              Width = 125
              Height = 21
              TabStop = False
              Color = 14677503
              DataField = 'DIID'
              DataSource = dsInv3
              Font.Charset = RUSSIAN_CHARSET
              Font.Color = clMaroon
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = [fsBold]
              ParentFont = False
              ReadOnly = True
              TabOrder = 5
            end
            object edDIPERMITS_3: TcxDBLookupComboBox
              Left = 268
              Top = 69
              DataBinding.DataField = 'DIPERMITS'
              DataBinding.DataSource = dsInv3
              Properties.DropDownListStyle = lsFixedList
              Properties.ImmediatePost = True
              Properties.KeyFieldNames = 'SDID'
              Properties.ListColumns = <
                item
                  FieldName = 'SDNAME'
                end>
              Properties.ListOptions.ShowHeader = False
              Properties.ListSource = dsPermits
              Style.BorderStyle = ebs3D
              Style.Shadow = False
              Style.ButtonStyle = btsDefault
              TabOrder = 6
              Width = 125
            end
          end
          object Panel3: TPanel
            Left = 0
            Top = 0
            Width = 974
            Height = 133
            Align = alTop
            BevelInner = bvLowered
            TabOrder = 1
            object lbS1: TLabel
              Left = 2
              Top = 2
              Width = 970
              Height = 13
              Align = alTop
              Caption = ' '#1054#1090#1087#1088#1072#1074#1080#1090#1077#1083#1100':'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clMaroon
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = [fsBold]
              ParentFont = False
              ExplicitWidth = 83
            end
            object Label43: TLabel
              Left = 4
              Top = 15
              Width = 31
              Height = 13
              Caption = #1057#1091#1084#1084#1072
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clNavy
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
            end
            object Label44: TLabel
              Left = 4
              Top = 54
              Width = 35
              Height = 13
              Caption = #1041#1072#1083#1072#1085#1089
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clNavy
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
            end
            object Label45: TLabel
              Left = 4
              Top = 93
              Width = 22
              Height = 13
              Caption = #1053#1044#1057
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clNavy
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
            end
            object Label46: TLabel
              Left = 104
              Top = 15
              Width = 108
              Height = 13
              Caption = #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100' '#1087#1083#1072#1090#1077#1078#1072
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clNavy
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
            end
            object Label47: TLabel
              Left = 268
              Top = 15
              Width = 45
              Height = 13
              Caption = #8470' '#1089#1095#1105#1090#1072
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clNavy
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
            end
            object Label48: TLabel
              Left = 268
              Top = 54
              Width = 125
              Height = 13
              Caption = #1042#1099#1076#1072#1090#1100' '#1075#1088#1091#1079' '#1073#1077#1079' '#1086#1087#1083#1072#1090#1099
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clNavy
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
            end
            object edDIAMOUNT_S: TDBEdit
              Left = 4
              Top = 30
              Width = 78
              Height = 21
              TabStop = False
              Color = 14677503
              DataField = 'DIAMOUNT'
              DataSource = dsInvS
              ReadOnly = True
              TabOrder = 0
            end
            object edDIBALANCE_S: TDBEdit
              Left = 4
              Top = 69
              Width = 78
              Height = 21
              TabStop = False
              Color = 14677503
              DataField = 'DIBALANCE'
              DataSource = dsInvS
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clRed
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
              ReadOnly = True
              TabOrder = 1
            end
            object edDINDS_S: TDBEdit
              Left = 4
              Top = 108
              Width = 78
              Height = 21
              TabStop = False
              Color = 14677503
              DataField = 'DINDS'
              DataSource = dsInvS
              ReadOnly = True
              TabOrder = 2
            end
            object edDIPAYTYPE_S: TDBRadioGroup
              Left = 104
              Top = 54
              Width = 150
              Height = 75
              Caption = '         '#1057#1087#1086#1089#1086#1073' '#1086#1087#1083#1072#1090#1099'   '
              DataField = 'DIPAYTYPE'
              DataSource = dsInvS
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clNavy
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              Items.Strings = (
                #1053#1072#1083#1080#1095#1085#1099#1081
                #1041#1077#1079#1085#1072#1083#1080#1095#1085#1099#1081)
              ParentBackground = True
              ParentFont = False
              TabOrder = 3
              Values.Strings = (
                '1101'
                '1102')
            end
            object edOBID_s: TcxDBLookupComboBox
              Left = 104
              Top = 30
              DataBinding.DataField = 'OBID'
              DataBinding.DataSource = dsInvS
              Properties.DropDownListStyle = lsFixedList
              Properties.ImmediatePost = True
              Properties.KeyFieldNames = 'OBID'
              Properties.ListColumns = <
                item
                  FieldName = 'OBNAME'
                end>
              Properties.ListOptions.ShowHeader = False
              Properties.ListSource = dsBills_S
              Style.BorderStyle = ebs3D
              Style.Shadow = False
              Style.ButtonStyle = btsDefault
              TabOrder = 4
              Width = 150
            end
            object edDIID_S: TDBEdit
              Left = 268
              Top = 30
              Width = 125
              Height = 21
              TabStop = False
              Color = 14677503
              DataField = 'DIID'
              DataSource = dsInvS
              Font.Charset = RUSSIAN_CHARSET
              Font.Color = clMaroon
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = [fsBold]
              ParentFont = False
              ReadOnly = True
              TabOrder = 5
            end
            object edDIPERMITS_S: TcxDBLookupComboBox
              Left = 268
              Top = 69
              DataBinding.DataField = 'DIPERMITS'
              DataBinding.DataSource = dsInvS
              Properties.DropDownListStyle = lsFixedList
              Properties.ImmediatePost = True
              Properties.KeyFieldNames = 'SDID'
              Properties.ListColumns = <
                item
                  FieldName = 'SDNAME'
                end>
              Properties.ListOptions.ShowHeader = False
              Properties.ListSource = dsPermits
              Style.BorderStyle = ebs3D
              Style.Shadow = False
              Style.ButtonStyle = btsDefault
              TabOrder = 6
              Width = 125
            end
          end
          object Panel4: TPanel
            Left = 0
            Top = 133
            Width = 974
            Height = 133
            Align = alTop
            BevelInner = bvLowered
            TabOrder = 2
            object lbR1: TLabel
              Left = 2
              Top = 2
              Width = 970
              Height = 13
              Align = alTop
              Caption = ' '#1055#1086#1083#1091#1095#1072#1090#1077#1083#1100':'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clMaroon
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = [fsBold]
              ParentFont = False
              ExplicitWidth = 77
            end
            object Label49: TLabel
              Left = 4
              Top = 15
              Width = 31
              Height = 13
              Caption = #1057#1091#1084#1084#1072
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clNavy
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
            end
            object Label50: TLabel
              Left = 4
              Top = 54
              Width = 35
              Height = 13
              Caption = #1041#1072#1083#1072#1085#1089
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clNavy
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
            end
            object Label51: TLabel
              Left = 4
              Top = 93
              Width = 22
              Height = 13
              Caption = #1053#1044#1057
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clNavy
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
            end
            object Label52: TLabel
              Left = 104
              Top = 15
              Width = 108
              Height = 13
              Caption = #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100' '#1087#1083#1072#1090#1077#1078#1072
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clNavy
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
            end
            object Label53: TLabel
              Left = 268
              Top = 15
              Width = 45
              Height = 13
              Caption = #8470' '#1089#1095#1105#1090#1072
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clNavy
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
            end
            object Label54: TLabel
              Left = 268
              Top = 54
              Width = 125
              Height = 13
              Caption = #1042#1099#1076#1072#1090#1100' '#1075#1088#1091#1079' '#1073#1077#1079' '#1086#1087#1083#1072#1090#1099
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clNavy
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
            end
            object edDIAMOUNT_R: TDBEdit
              Left = 4
              Top = 30
              Width = 78
              Height = 21
              TabStop = False
              Color = 14677503
              DataField = 'DIAMOUNT'
              DataSource = dsInvR
              ReadOnly = True
              TabOrder = 0
            end
            object edDIBALANCE_R: TDBEdit
              Left = 4
              Top = 69
              Width = 78
              Height = 21
              TabStop = False
              Color = 14677503
              DataField = 'DIBALANCE'
              DataSource = dsInvR
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clRed
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
              ReadOnly = True
              TabOrder = 1
            end
            object edDINDS_R: TDBEdit
              Left = 4
              Top = 108
              Width = 78
              Height = 21
              TabStop = False
              Color = 14677503
              DataField = 'DINDS'
              DataSource = dsInvR
              ReadOnly = True
              TabOrder = 2
            end
            object edDIPAYTYPE_R: TDBRadioGroup
              Left = 104
              Top = 54
              Width = 150
              Height = 75
              Caption = '         '#1057#1087#1086#1089#1086#1073' '#1086#1087#1083#1072#1090#1099'   '
              DataField = 'DIPAYTYPE'
              DataSource = dsInvR
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clNavy
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              Items.Strings = (
                #1053#1072#1083#1080#1095#1085#1099#1081
                #1041#1077#1079#1085#1072#1083#1080#1095#1085#1099#1081)
              ParentBackground = True
              ParentFont = False
              TabOrder = 3
              Values.Strings = (
                '1101'
                '1102')
            end
            object edOBID_R: TcxDBLookupComboBox
              Left = 104
              Top = 30
              DataBinding.DataField = 'OBID'
              DataBinding.DataSource = dsInvR
              Properties.DropDownListStyle = lsFixedList
              Properties.ImmediatePost = True
              Properties.KeyFieldNames = 'OBID'
              Properties.ListColumns = <
                item
                  FieldName = 'OBNAME'
                end>
              Properties.ListOptions.ShowHeader = False
              Properties.ListSource = dsBills_S
              Style.BorderStyle = ebs3D
              Style.Shadow = False
              Style.ButtonStyle = btsDefault
              TabOrder = 4
              Width = 150
            end
            object edDIID_R: TDBEdit
              Left = 268
              Top = 30
              Width = 125
              Height = 21
              TabStop = False
              Color = 14677503
              DataField = 'DIID'
              DataSource = dsInvR
              Font.Charset = RUSSIAN_CHARSET
              Font.Color = clMaroon
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = [fsBold]
              ParentFont = False
              ReadOnly = True
              TabOrder = 5
            end
            object edDIPERMITS_R: TcxDBLookupComboBox
              Left = 268
              Top = 69
              DataBinding.DataField = 'DIPERMITS'
              DataBinding.DataSource = dsInvR
              Properties.DropDownListStyle = lsFixedList
              Properties.ImmediatePost = True
              Properties.KeyFieldNames = 'SDID'
              Properties.ListColumns = <
                item
                  FieldName = 'SDNAME'
                end>
              Properties.ListOptions.ShowHeader = False
              Properties.ListSource = dsPermits
              Style.BorderStyle = ebs3D
              Style.Shadow = False
              Style.ButtonStyle = btsDefault
              TabOrder = 6
              Width = 125
            end
          end
        end
        object tsInvItems: TcxTabSheet
          Caption = #1055#1086#1076#1088#1086#1073#1085#1086
          ImageIndex = 1
          object Panel6: TPanel
            Left = 0
            Top = 0
            Width = 974
            Height = 133
            Align = alTop
            BevelInner = bvLowered
            TabOrder = 0
            object lbS2: TLabel
              Left = 2
              Top = 2
              Width = 970
              Height = 13
              Align = alTop
              Caption = ' '#1054#1090#1087#1088#1072#1074#1080#1090#1077#1083#1100':'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clMaroon
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = [fsBold]
              ParentFont = False
              ExplicitWidth = 83
            end
            object cxGrid1: TcxGrid
              Left = 2
              Top = 15
              Width = 970
              Height = 116
              Align = alClient
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
              TabOrder = 0
              LookAndFeel.Kind = lfStandard
              object cxGridDBTableView1: TcxGridDBTableView
                NavigatorButtons.ConfirmDelete = False
                NavigatorButtons.First.Visible = True
                NavigatorButtons.PriorPage.Visible = True
                NavigatorButtons.Prior.Visible = True
                NavigatorButtons.Next.Visible = True
                NavigatorButtons.NextPage.Visible = True
                NavigatorButtons.Last.Visible = True
                NavigatorButtons.Insert.Visible = False
                NavigatorButtons.Append.Visible = False
                NavigatorButtons.Delete.Visible = False
                NavigatorButtons.Edit.Visible = False
                NavigatorButtons.Post.Visible = False
                NavigatorButtons.Cancel.Visible = False
                NavigatorButtons.Refresh.Visible = False
                NavigatorButtons.SaveBookmark.Visible = False
                NavigatorButtons.GotoBookmark.Visible = False
                NavigatorButtons.Filter.Visible = False
                DataController.DataModeController.GridMode = True
                DataController.DataSource = dsInvItems_S
                DataController.Summary.DefaultGroupSummaryItems = <>
                DataController.Summary.FooterSummaryItems = <>
                DataController.Summary.SummaryGroups = <>
                OptionsBehavior.CellHints = True
                OptionsBehavior.IncSearch = True
                OptionsData.Deleting = False
                OptionsData.Inserting = False
                OptionsView.Navigator = True
                OptionsView.NavigatorOffset = 10
                OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
                OptionsView.ColumnAutoWidth = True
                OptionsView.GroupByBox = False
                OptionsView.Indicator = True
                OptionsView.ShowColumnFilterButtons = sfbAlways
                Styles.IncSearch = DMInv.cxKrasniyText
                Styles.Selection = DMInv.cxJoltiyFon
                Styles.Header = DMInv.cxSiniyText
                object cxGridDBTableView1SVNAME: TcxGridDBColumn
                  DataBinding.FieldName = 'SVNAME'
                  Options.Editing = False
                  Options.Filtering = False
                  Options.Grouping = False
                  Options.Sorting = False
                end
                object cxGridDBTableView1DVPRICE: TcxGridDBColumn
                  DataBinding.FieldName = 'DVPRICE'
                  Options.Editing = False
                  Options.Filtering = False
                  Options.Grouping = False
                  Options.Sorting = False
                end
                object cxGridDBTableView1DVQTTY: TcxGridDBColumn
                  DataBinding.FieldName = 'DVQTTY'
                  Options.Editing = False
                  Options.Filtering = False
                  Options.Grouping = False
                  Options.Sorting = False
                end
                object cxGridDBTableView1DVAMOUNT: TcxGridDBColumn
                  DataBinding.FieldName = 'DVAMOUNT'
                  Options.Editing = False
                  Options.Filtering = False
                  Options.Grouping = False
                  Options.Sorting = False
                end
                object cxGridDBTableView1DVDISCOUNT: TcxGridDBColumn
                  DataBinding.FieldName = 'DVDISCOUNT'
                  Options.Editing = False
                  Options.Filtering = False
                  Options.Grouping = False
                  Options.Sorting = False
                end
                object cxGridDBTableView1DVMARKUP: TcxGridDBColumn
                  DataBinding.FieldName = 'DVMARKUP'
                  Options.Editing = False
                  Options.Filtering = False
                  Options.Grouping = False
                  Options.Sorting = False
                end
                object cxGridDBTableView1DVTOTAL: TcxGridDBColumn
                  DataBinding.FieldName = 'DVTOTAL'
                  Options.Editing = False
                  Options.Filtering = False
                  Options.Grouping = False
                  Options.Sorting = False
                end
                object cxGridDBTableView1DVNDS: TcxGridDBColumn
                  DataBinding.FieldName = 'DVNDS'
                  Options.Editing = False
                  Options.Filtering = False
                  Options.Grouping = False
                  Options.Sorting = False
                end
                object cxGridDBTableView1DVHAND: TcxGridDBColumn
                  DataBinding.FieldName = 'DVHAND'
                  Options.Filtering = False
                  Options.Grouping = False
                  Options.Sorting = False
                end
              end
              object cxGridLevel1: TcxGridLevel
                GridView = cxGridDBTableView1
              end
            end
          end
          object Panel7: TPanel
            Left = 0
            Top = 133
            Width = 974
            Height = 133
            Align = alTop
            BevelInner = bvLowered
            TabOrder = 1
            object lbR2: TLabel
              Left = 2
              Top = 2
              Width = 970
              Height = 13
              Align = alTop
              Caption = ' '#1055#1086#1083#1091#1095#1072#1090#1077#1083#1100':'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clMaroon
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = [fsBold]
              ParentFont = False
              ExplicitWidth = 77
            end
            object cxGrid2: TcxGrid
              Left = 2
              Top = 15
              Width = 970
              Height = 116
              Align = alClient
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
              TabOrder = 0
              LookAndFeel.Kind = lfStandard
              object cxGridDBTableView2: TcxGridDBTableView
                NavigatorButtons.ConfirmDelete = False
                NavigatorButtons.First.Visible = True
                NavigatorButtons.PriorPage.Visible = True
                NavigatorButtons.Prior.Visible = True
                NavigatorButtons.Next.Visible = True
                NavigatorButtons.NextPage.Visible = True
                NavigatorButtons.Last.Visible = True
                NavigatorButtons.Insert.Visible = False
                NavigatorButtons.Append.Visible = False
                NavigatorButtons.Delete.Visible = False
                NavigatorButtons.Edit.Visible = False
                NavigatorButtons.Post.Visible = False
                NavigatorButtons.Cancel.Visible = False
                NavigatorButtons.Refresh.Visible = False
                NavigatorButtons.SaveBookmark.Visible = False
                NavigatorButtons.GotoBookmark.Visible = False
                NavigatorButtons.Filter.Visible = False
                DataController.DataModeController.GridMode = True
                DataController.DataSource = dsInvItems_R
                DataController.Summary.DefaultGroupSummaryItems = <>
                DataController.Summary.FooterSummaryItems = <>
                DataController.Summary.SummaryGroups = <>
                OptionsBehavior.CellHints = True
                OptionsBehavior.ImmediateEditor = False
                OptionsBehavior.IncSearch = True
                OptionsData.Deleting = False
                OptionsData.Inserting = False
                OptionsView.Navigator = True
                OptionsView.NavigatorOffset = 10
                OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
                OptionsView.ColumnAutoWidth = True
                OptionsView.GroupByBox = False
                OptionsView.Indicator = True
                OptionsView.ShowColumnFilterButtons = sfbAlways
                Styles.IncSearch = DMInv.cxKrasniyText
                Styles.Selection = DMInv.cxJoltiyFon
                Styles.Header = DMInv.cxSiniyText
                object cxGridDBTableView2SVNAME: TcxGridDBColumn
                  DataBinding.FieldName = 'SVNAME'
                  Options.Editing = False
                  Options.Filtering = False
                  Options.Grouping = False
                  Options.Sorting = False
                end
                object cxGridDBTableView2DVPRICE: TcxGridDBColumn
                  DataBinding.FieldName = 'DVPRICE'
                  Options.Editing = False
                  Options.Filtering = False
                  Options.Grouping = False
                  Options.Sorting = False
                end
                object cxGridDBTableView2DVQTTY: TcxGridDBColumn
                  DataBinding.FieldName = 'DVQTTY'
                  Options.Editing = False
                  Options.Filtering = False
                  Options.Grouping = False
                  Options.Sorting = False
                end
                object cxGridDBTableView2DVAMOUNT: TcxGridDBColumn
                  DataBinding.FieldName = 'DVAMOUNT'
                  Options.Editing = False
                  Options.Filtering = False
                  Options.Grouping = False
                  Options.Sorting = False
                end
                object cxGridDBTableView2DVDISCOUNT: TcxGridDBColumn
                  DataBinding.FieldName = 'DVDISCOUNT'
                  Options.Editing = False
                  Options.Filtering = False
                  Options.Grouping = False
                  Options.Sorting = False
                end
                object cxGridDBTableView2DVMARKUP: TcxGridDBColumn
                  DataBinding.FieldName = 'DVMARKUP'
                  Options.Editing = False
                  Options.Filtering = False
                  Options.Grouping = False
                  Options.Sorting = False
                end
                object cxGridDBTableView2DVTOTAL: TcxGridDBColumn
                  DataBinding.FieldName = 'DVTOTAL'
                  Options.Editing = False
                  Options.Filtering = False
                  Options.Grouping = False
                  Options.Sorting = False
                end
                object cxGridDBTableView2DVNDS: TcxGridDBColumn
                  DataBinding.FieldName = 'DVNDS'
                  Options.Editing = False
                  Options.Filtering = False
                  Options.Grouping = False
                  Options.Sorting = False
                end
                object cxGridDBTableView2DVHAND: TcxGridDBColumn
                  DataBinding.FieldName = 'DVHAND'
                  Options.Filtering = False
                  Options.Grouping = False
                  Options.Sorting = False
                end
              end
              object cxGridLevel2: TcxGridLevel
                GridView = cxGridDBTableView2
              end
            end
          end
          object Panel8: TPanel
            Left = 0
            Top = 266
            Width = 974
            Height = 133
            Align = alTop
            BevelInner = bvLowered
            TabOrder = 2
            object lb32: TLabel
              Left = 2
              Top = 2
              Width = 970
              Height = 13
              Align = alTop
              Caption = ' 3-'#1077' '#1083#1080#1094#1086':'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clMaroon
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = [fsBold]
              ParentFont = False
              ExplicitWidth = 56
            end
            object cxGrid3: TcxGrid
              Left = 2
              Top = 15
              Width = 970
              Height = 116
              Align = alClient
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'Tahoma'
              Font.Style = []
              ParentFont = False
              TabOrder = 0
              LookAndFeel.Kind = lfStandard
              object cxGridDBTableView3: TcxGridDBTableView
                NavigatorButtons.ConfirmDelete = False
                NavigatorButtons.First.Visible = True
                NavigatorButtons.PriorPage.Visible = True
                NavigatorButtons.Prior.Visible = True
                NavigatorButtons.Next.Visible = True
                NavigatorButtons.NextPage.Visible = True
                NavigatorButtons.Last.Visible = True
                NavigatorButtons.Insert.Visible = False
                NavigatorButtons.Append.Visible = False
                NavigatorButtons.Delete.Visible = False
                NavigatorButtons.Edit.Visible = False
                NavigatorButtons.Post.Visible = False
                NavigatorButtons.Cancel.Visible = False
                NavigatorButtons.Refresh.Visible = False
                NavigatorButtons.SaveBookmark.Visible = False
                NavigatorButtons.GotoBookmark.Visible = False
                NavigatorButtons.Filter.Visible = False
                DataController.DataModeController.GridMode = True
                DataController.DataSource = dsInvItems_3
                DataController.Summary.DefaultGroupSummaryItems = <>
                DataController.Summary.FooterSummaryItems = <>
                DataController.Summary.SummaryGroups = <>
                OptionsBehavior.CellHints = True
                OptionsBehavior.ImmediateEditor = False
                OptionsBehavior.IncSearch = True
                OptionsData.Deleting = False
                OptionsData.Inserting = False
                OptionsView.Navigator = True
                OptionsView.NavigatorOffset = 10
                OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
                OptionsView.ColumnAutoWidth = True
                OptionsView.GroupByBox = False
                OptionsView.Indicator = True
                OptionsView.ShowColumnFilterButtons = sfbAlways
                Styles.IncSearch = DMInv.cxKrasniyText
                Styles.Selection = DMInv.cxJoltiyFon
                Styles.Header = DMInv.cxSiniyText
                object cxGridDBTableView3SVNAME: TcxGridDBColumn
                  DataBinding.FieldName = 'SVNAME'
                  Options.Editing = False
                  Options.Filtering = False
                  Options.Grouping = False
                  Options.Sorting = False
                end
                object cxGridDBTableView3DVPRICE: TcxGridDBColumn
                  DataBinding.FieldName = 'DVPRICE'
                  Options.Editing = False
                  Options.Filtering = False
                  Options.Grouping = False
                  Options.Sorting = False
                end
                object cxGridDBTableView3DVQTTY: TcxGridDBColumn
                  DataBinding.FieldName = 'DVQTTY'
                  Options.Editing = False
                  Options.Filtering = False
                  Options.Grouping = False
                  Options.Sorting = False
                end
                object cxGridDBTableView3DVAMOUNT: TcxGridDBColumn
                  DataBinding.FieldName = 'DVAMOUNT'
                  Options.Editing = False
                  Options.Filtering = False
                  Options.Grouping = False
                  Options.Sorting = False
                end
                object cxGridDBTableView3DVDISCOUNT: TcxGridDBColumn
                  DataBinding.FieldName = 'DVDISCOUNT'
                  Options.Editing = False
                  Options.Filtering = False
                  Options.Grouping = False
                  Options.Sorting = False
                end
                object cxGridDBTableView3DVMARKUP: TcxGridDBColumn
                  DataBinding.FieldName = 'DVMARKUP'
                  Options.Editing = False
                  Options.Filtering = False
                  Options.Grouping = False
                  Options.Sorting = False
                end
                object cxGridDBTableView3DVTOTAL: TcxGridDBColumn
                  DataBinding.FieldName = 'DVTOTAL'
                  Options.Editing = False
                  Options.Filtering = False
                  Options.Grouping = False
                  Options.Sorting = False
                end
                object cxGridDBTableView3DVNDS: TcxGridDBColumn
                  DataBinding.FieldName = 'DVNDS'
                  Options.Editing = False
                  Options.Filtering = False
                  Options.Grouping = False
                  Options.Sorting = False
                end
                object cxGridDBTableView3DVHAND: TcxGridDBColumn
                  DataBinding.FieldName = 'DVHAND'
                  Options.Filtering = False
                  Options.Grouping = False
                  Options.Sorting = False
                end
              end
              object cxGridLevel3: TcxGridLevel
                GridView = cxGridDBTableView3
              end
            end
          end
        end
      end
    end
    object tsGoods: TcxTabSheet
      Caption = #1043#1088#1091#1079
      ImageIndex = 2
      object Panel10: TPanel
        Left = 0
        Top = 0
        Width = 976
        Height = 451
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object Label107: TLabel
          Left = 4
          Top = 163
          Width = 72
          Height = 13
          Caption = 'MAX '#1076#1083#1080#1085#1072' ('#1084')'
          FocusControl = deTPMAXLENGTH
          Font.Charset = RUSSIAN_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label108: TLabel
          Left = 80
          Top = 163
          Width = 78
          Height = 13
          Caption = 'MAX '#1074#1099#1089#1086#1090#1072' ('#1084')'
          FocusControl = deTPMAXHEIGHT
          Font.Charset = RUSSIAN_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label27: TLabel
          Left = 54
          Top = 2
          Width = 68
          Height = 13
          Caption = #1048#1085#1076#1077#1082#1089' '#1075#1088#1091#1079#1072
          FocusControl = edDGIND1
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label28: TLabel
          Left = 200
          Top = 2
          Width = 79
          Height = 13
          Caption = #1061#1072#1088#1072#1082#1090#1077#1088' '#1075#1088#1091#1079#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label29: TLabel
          Left = 452
          Top = 2
          Width = 126
          Height = 13
          Caption = #1061#1072#1088#1072#1082#1090#1077#1088' '#1075#1088#1091#1079#1072' ('#1076#1088#1091#1075#1086#1077')'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label30: TLabel
          Left = 4
          Top = 42
          Width = 85
          Height = 13
          Caption = #1057#1090#1086#1080#1084#1086#1089#1090#1100' '#1075#1088#1091#1079#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label39: TLabel
          Left = 495
          Top = 153
          Width = 150
          Height = 13
          Caption = #1057#1086#1089#1090#1086#1103#1085#1080#1077' '#1091#1087#1072#1082#1086#1074#1082#1080' '#1082#1083#1080#1077#1085#1090#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label42: TLabel
          Left = 4
          Top = 205
          Width = 151
          Height = 13
          Caption = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1072#1103' '#1080#1085#1092#1086#1088#1084#1072#1094#1080#1103
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object deTPMAXHEIGHT: TDBEdit
          Left = 80
          Top = 180
          Width = 78
          Height = 21
          DataField = 'DGMAXHEIGHT'
          DataSource = dsDeGoods
          Font.Charset = RUSSIAN_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnKeyPress = edDGSTDWKeyPress
        end
        object deTPMAXLENGTH: TDBEdit
          Left = 4
          Top = 180
          Width = 74
          Height = 21
          DataField = 'DGMAXLENGTH'
          DataSource = dsDeGoods
          Font.Charset = RUSSIAN_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnKeyPress = edDGSTDWKeyPress
        end
        object edDGGOODSDESCR: TcxDBLookupComboBox
          Left = 200
          Top = 18
          DataBinding.DataField = 'DGGOODSDESCR'
          DataBinding.DataSource = dsDeGoods
          Properties.DropDownListStyle = lsFixedList
          Properties.ImmediatePost = True
          Properties.KeyFieldNames = 'SDID'
          Properties.ListColumns = <
            item
              FieldName = 'SDNAME'
            end>
          Properties.ListOptions.ShowHeader = False
          Properties.ListSource = dsGoodsType
          Style.BorderStyle = ebs3D
          Style.Shadow = False
          Style.ButtonStyle = btsDefault
          TabOrder = 2
          Width = 251
        end
        object edDGGOODSDESCRTEXT: TDBEdit
          Left = 452
          Top = 18
          Width = 267
          Height = 21
          TabStop = False
          Color = 14677503
          DataField = 'DGGOODSDESCRTEXT'
          DataSource = dsDeGoods
          ReadOnly = True
          TabOrder = 3
        end
        object edDGIND1: TDBEdit
          Left = 4
          Top = 18
          Width = 30
          Height = 21
          DataField = 'DGIND1'
          DataSource = dsDeGoods
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
          OnChange = edDGIND1Change
        end
        object edDGIND2: TDBEdit
          Left = 34
          Top = 18
          Width = 30
          Height = 21
          DataField = 'DGIND2'
          DataSource = dsDeGoods
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 5
          OnChange = edDGIND2Change
        end
        object edDGIND3: TDBEdit
          Left = 64
          Top = 18
          Width = 46
          Height = 21
          DataField = 'DGIND3'
          DataSource = dsDeGoods
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 6
          OnChange = edDGIND3Change
        end
        object edDGIND4: TDBEdit
          Left = 110
          Top = 18
          Width = 32
          Height = 21
          DataField = 'DGIND4'
          DataSource = dsDeGoods
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 7
          OnChange = edDGIND4Change
        end
        object edDGIND5: TDBEdit
          Left = 142
          Top = 18
          Width = 39
          Height = 21
          DataField = 'DGIND5'
          DataSource = dsDeGoods
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 8
        end
        object edDGINFO: TDBEdit
          Left = 4
          Top = 221
          Width = 715
          Height = 21
          TabStop = False
          DataField = 'DGINFO'
          DataSource = dsDeGoods
          TabOrder = 9
        end
        object edDGISPALLET: TDBCheckBox
          Left = 548
          Top = 194
          Width = 112
          Height = 23
          Caption = #1055#1086#1076#1076#1086#1085' '#1082#1083#1080#1077#1085#1090#1072
          DataField = 'DGISPALLET'
          DataSource = dsDeGoods
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 10
          ValueChecked = '1'
          ValueUnchecked = '0'
          WordWrap = True
        end
        object edDGPRECOST: TcxDBCalcEdit
          Left = 4
          Top = 58
          DataBinding.DataField = 'DGPRECOST'
          DataBinding.DataSource = dsDeGoods
          Properties.ImmediatePost = True
          Style.BorderStyle = ebs3D
          Style.ButtonStyle = btsDefault
          TabOrder = 11
          OnKeyPress = edDGSTDWKeyPress
          Width = 154
        end
        object edDPCLPACKCTATUS: TcxDBLookupComboBox
          Left = 495
          Top = 167
          DataBinding.DataField = 'DGCLPACKSTATUS'
          DataBinding.DataSource = dsDeGoods
          Properties.DropDownListStyle = lsFixedList
          Properties.ImmediatePost = True
          Properties.KeyFieldNames = 'SDID'
          Properties.ListColumns = <
            item
              FieldName = 'SDNAME'
            end>
          Properties.ListOptions.ShowHeader = False
          Properties.ListSource = dsPackStatus
          Style.BorderStyle = ebs3D
          Style.Shadow = False
          Style.ButtonStyle = btsDefault
          TabOrder = 12
          Width = 224
        end
        object GroupBox1: TGroupBox
          Left = 4
          Top = 85
          Width = 154
          Height = 72
          Caption = '  '#1050#1086#1083#1080#1095#1077#1089#1090#1074#1086' '#1084#1077#1089#1090' '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 13
          object Label31: TLabel
            Left = 12
            Top = 16
            Width = 38
            Height = 13
            Caption = #1052#1077#1083#1082#1080#1093
            FocusControl = edDGSMALLPIECECNT
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
          end
          object Label32: TLabel
            Left = 66
            Top = 16
            Width = 73
            Height = 13
            Caption = #1058#1088#1072#1085#1089#1087#1086#1088#1090#1085#1099#1093
            FocusControl = edDGTRANCPIECECNT
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
          end
          object edDGSMALLPIECECNT: TDBEdit
            Left = 12
            Top = 32
            Width = 47
            Height = 21
            DataField = 'DGSMALLPIECECNT'
            DataSource = dsDeGoods
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
          end
          object edDGTRANCPIECECNT: TDBEdit
            Left = 72
            Top = 32
            Width = 57
            Height = 21
            DataField = 'DGTRANCPIECECNT'
            DataSource = dsDeGoods
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            TabOrder = 1
          end
        end
        object GroupBox2: TGroupBox
          Left = 4
          Top = 272
          Width = 192
          Height = 176
          Caption = '  '#1054#1089#1086#1073#1099#1077' '#1089#1074#1086#1081#1089#1090#1074#1072' '#1075#1088#1091#1079#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 14
          object sbI1: TSpeedButton
            Left = 7
            Top = 22
            Width = 23
            Height = 22
            Flat = True
            Glyph.Data = {
              36040000424D3604000000000000360000002800000010000000100000000100
              2000000000000004000000000000000000000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF00FF00
              FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF000000
              FF000000FF000000FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000
              FF000000FF000000FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
              FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
              FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF000000FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
              0000FF000000FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00
              0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
              0000FF000000FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF000000FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
            OnClick = sbI1Click
          end
          object sbD1: TSpeedButton
            Left = 30
            Top = 22
            Width = 23
            Height = 22
            Flat = True
            Glyph.Data = {
              36040000424D3604000000000000360000002800000010000000100000000100
              2000000000000004000000000000000000000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF000000
              FF000000FF000000FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000
              FF000000FF000000FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
              FF00FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
              0000FF000000FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00
              0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
              0000FF000000FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
            OnClick = sbD1Click
          end
          object dbg1: TcxGrid
            Left = 6
            Top = 48
            Width = 180
            Height = 120
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            LookAndFeel.Kind = lfStandard
            object dbg1DBTableView1: TcxGridDBTableView
              NavigatorButtons.ConfirmDelete = False
              NavigatorButtons.First.Visible = True
              NavigatorButtons.PriorPage.Visible = True
              NavigatorButtons.Prior.Visible = True
              NavigatorButtons.Next.Visible = True
              NavigatorButtons.NextPage.Visible = True
              NavigatorButtons.Last.Visible = True
              NavigatorButtons.Insert.Visible = False
              NavigatorButtons.Append.Visible = False
              NavigatorButtons.Delete.Visible = False
              NavigatorButtons.Edit.Visible = False
              NavigatorButtons.Post.Visible = False
              NavigatorButtons.Cancel.Visible = False
              NavigatorButtons.Refresh.Visible = False
              NavigatorButtons.SaveBookmark.Visible = False
              NavigatorButtons.GotoBookmark.Visible = False
              NavigatorButtons.Filter.Visible = False
              DataController.DataModeController.GridMode = True
              DataController.DataSource = dsDeGoodsDescr
              DataController.Summary.DefaultGroupSummaryItems = <>
              DataController.Summary.FooterSummaryItems = <>
              DataController.Summary.SummaryGroups = <>
              OptionsBehavior.CellHints = True
              OptionsBehavior.ImmediateEditor = False
              OptionsBehavior.IncSearch = True
              OptionsData.Deleting = False
              OptionsData.Inserting = False
              OptionsView.Navigator = True
              OptionsView.NavigatorOffset = 10
              OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
              OptionsView.ColumnAutoWidth = True
              OptionsView.GroupByBox = False
              OptionsView.Indicator = True
              OptionsView.ShowColumnFilterButtons = sfbAlways
              Preview.Visible = True
              Styles.IncSearch = DMInv.cxKrasniyText
              Styles.Selection = DMInv.cxJoltiyFon
              Styles.Header = DMInv.cxSiniyText
              object dbg1DBTableView1SDNAME: TcxGridDBColumn
                DataBinding.FieldName = 'SDNAME'
                Options.Editing = False
              end
            end
            object dbg1Level1: TcxGridLevel
              GridView = dbg1DBTableView1
            end
          end
        end
        object GroupBox3: TGroupBox
          Left = 200
          Top = 272
          Width = 264
          Height = 176
          Caption = #1058#1088#1077#1073#1086#1074#1072#1085#1080#1103' '#1082' '#1087#1086#1075#1088#1091#1079#1082#1077'/'#1090#1088#1072#1085#1089#1087#1086#1088#1090#1080#1088#1086#1074#1082#1077
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 15
          object sbI2: TSpeedButton
            Left = 7
            Top = 22
            Width = 23
            Height = 22
            Flat = True
            Glyph.Data = {
              36040000424D3604000000000000360000002800000010000000100000000100
              2000000000000004000000000000000000000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF00FF00
              FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF000000
              FF000000FF000000FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000
              FF000000FF000000FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
              FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
              FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF000000FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
              0000FF000000FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00
              0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
              0000FF000000FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF000000FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
            OnClick = sbI2Click
          end
          object sbD2: TSpeedButton
            Left = 30
            Top = 22
            Width = 23
            Height = 22
            Flat = True
            Glyph.Data = {
              36040000424D3604000000000000360000002800000010000000100000000100
              2000000000000004000000000000000000000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF000000
              FF000000FF000000FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000
              FF000000FF000000FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
              FF00FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
              0000FF000000FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00
              0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
              0000FF000000FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
            OnClick = sbD2Click
          end
          object dbg2: TcxGrid
            Left = 6
            Top = 48
            Width = 250
            Height = 120
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            LookAndFeel.Kind = lfStandard
            object dbg2DBTableView1: TcxGridDBTableView
              NavigatorButtons.ConfirmDelete = False
              NavigatorButtons.First.Visible = True
              NavigatorButtons.PriorPage.Visible = True
              NavigatorButtons.Prior.Visible = True
              NavigatorButtons.Next.Visible = True
              NavigatorButtons.NextPage.Visible = True
              NavigatorButtons.Last.Visible = True
              NavigatorButtons.Insert.Visible = False
              NavigatorButtons.Append.Visible = False
              NavigatorButtons.Delete.Visible = False
              NavigatorButtons.Edit.Visible = False
              NavigatorButtons.Post.Visible = False
              NavigatorButtons.Cancel.Visible = False
              NavigatorButtons.Refresh.Visible = False
              NavigatorButtons.SaveBookmark.Visible = False
              NavigatorButtons.GotoBookmark.Visible = False
              NavigatorButtons.Filter.Visible = False
              DataController.DataModeController.GridMode = True
              DataController.DataSource = dsDeGoodsTrans
              DataController.Summary.DefaultGroupSummaryItems = <>
              DataController.Summary.FooterSummaryItems = <>
              DataController.Summary.SummaryGroups = <>
              OptionsBehavior.CellHints = True
              OptionsBehavior.ImmediateEditor = False
              OptionsBehavior.IncSearch = True
              OptionsData.Deleting = False
              OptionsData.Inserting = False
              OptionsView.Navigator = True
              OptionsView.NavigatorOffset = 10
              OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
              OptionsView.ColumnAutoWidth = True
              OptionsView.GroupByBox = False
              OptionsView.Indicator = True
              OptionsView.ShowColumnFilterButtons = sfbAlways
              Preview.Visible = True
              Styles.IncSearch = DMInv.cxKrasniyText
              Styles.Selection = DMInv.cxJoltiyFon
              Styles.Header = DMInv.cxSiniyText
              object dbg2DBTableView1SDNAME: TcxGridDBColumn
                DataBinding.FieldName = 'SDNAME'
                Options.Editing = False
              end
            end
            object dbg2Level1: TcxGridLevel
              GridView = dbg2DBTableView1
            end
          end
        end
        object GroupBox4: TGroupBox
          Left = 495
          Top = 45
          Width = 224
          Height = 104
          Caption = '  '#1046#1105#1089#1090#1082#1072#1103' '#1091#1087#1072#1082#1086#1074#1082#1072'  '
          Font.Charset = RUSSIAN_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 16
          object Label40: TLabel
            Left = 26
            Top = 59
            Width = 84
            Height = 13
            Caption = 'C'#1090#1072#1085#1076'. '#1075#1088#1091#1079' ('#1084'3)'
            FocusControl = edDGWOPACKSTDV
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
          end
          object Label41: TLabel
            Left = 112
            Top = 59
            Width = 95
            Height = 13
            Caption = #1053#1077#1089#1090#1072#1085#1076'. '#1075#1088#1091#1079' ('#1084'3)'
            FocusControl = edDGFORPACKSTDV
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
          end
          object Label38: TLabel
            Left = 52
            Top = 16
            Width = 69
            Height = 13
            Caption = #1058#1080#1087' '#1091#1087#1072#1082#1086#1074#1082#1080
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
          end
          object edDPPACKSTDV: TDBEdit
            Left = 53
            Top = 76
            Width = 57
            Height = 21
            DataField = 'DPPACKSTDV'
            DataSource = dsDePack
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnKeyPress = edDGSTDWKeyPress
          end
          object edDPPACKNSTDV: TDBEdit
            Left = 112
            Top = 76
            Width = 57
            Height = 21
            DataField = 'DPPACKNSTDV'
            DataSource = dsDePack
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            OnKeyPress = edDGSTDWKeyPress
          end
          object edDPTYPE: TcxDBLookupComboBox
            Left = 52
            Top = 32
            DataBinding.DataField = 'DPTYPE'
            DataBinding.DataSource = dsDePack
            ParentFont = False
            Properties.DropDownListStyle = lsFixedList
            Properties.ImmediatePost = True
            Properties.KeyFieldNames = 'SDID'
            Properties.ListColumns = <
              item
                FieldName = 'SDNAME'
              end>
            Properties.ListOptions.ShowHeader = False
            Properties.ListSource = dsPackTypes
            Style.BorderStyle = ebs3D
            Style.Shadow = False
            Style.ButtonStyle = btsDefault
            TabOrder = 2
            Width = 117
          end
        end
        object GroupBox5: TGroupBox
          Left = 470
          Top = 272
          Width = 250
          Height = 176
          Caption = ' '#1054#1073#1086#1088#1086#1090#1085#1072#1103' '#1090#1072#1088#1072' '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 17
          object sbI3: TSpeedButton
            Left = 7
            Top = 22
            Width = 23
            Height = 22
            Flat = True
            Glyph.Data = {
              36040000424D3604000000000000360000002800000010000000100000000100
              2000000000000004000000000000000000000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF00FF00
              FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF000000
              FF000000FF000000FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000
              FF000000FF000000FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
              FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
              FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF000000FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
              0000FF000000FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00
              0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
              0000FF000000FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF000000FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
            OnClick = sbI3Click
          end
          object sbD3: TSpeedButton
            Left = 30
            Top = 22
            Width = 23
            Height = 22
            Flat = True
            Glyph.Data = {
              36040000424D3604000000000000360000002800000010000000100000000100
              2000000000000004000000000000000000000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF000000
              FF000000FF000000FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000
              FF000000FF000000FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
              FF00FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
              0000FF000000FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00
              0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
              0000FF000000FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
            OnClick = sbD3Click
          end
          object dbg3: TcxGrid
            Left = 6
            Top = 48
            Width = 236
            Height = 120
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            LookAndFeel.Kind = lfStandard
            object dbg3DBTableView1: TcxGridDBTableView
              NavigatorButtons.ConfirmDelete = False
              NavigatorButtons.First.Visible = True
              NavigatorButtons.PriorPage.Visible = True
              NavigatorButtons.Prior.Visible = True
              NavigatorButtons.Next.Visible = True
              NavigatorButtons.NextPage.Visible = True
              NavigatorButtons.Last.Visible = True
              NavigatorButtons.Insert.Visible = False
              NavigatorButtons.Append.Visible = False
              NavigatorButtons.Delete.Visible = False
              NavigatorButtons.Edit.Visible = False
              NavigatorButtons.Post.Visible = False
              NavigatorButtons.Cancel.Visible = False
              NavigatorButtons.Refresh.Visible = False
              NavigatorButtons.SaveBookmark.Visible = False
              NavigatorButtons.GotoBookmark.Visible = False
              NavigatorButtons.Filter.Visible = False
              DataController.DataModeController.GridMode = True
              DataController.DataSource = dsDeRepack
              DataController.Summary.DefaultGroupSummaryItems = <>
              DataController.Summary.FooterSummaryItems = <>
              DataController.Summary.SummaryGroups = <>
              OptionsBehavior.CellHints = True
              OptionsBehavior.ImmediateEditor = False
              OptionsBehavior.IncSearch = True
              OptionsData.Deleting = False
              OptionsData.Inserting = False
              OptionsView.Navigator = True
              OptionsView.NavigatorOffset = 10
              OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
              OptionsView.ColumnAutoWidth = True
              OptionsView.GroupByBox = False
              OptionsView.Indicator = True
              OptionsView.ShowColumnFilterButtons = sfbAlways
              Preview.Visible = True
              Styles.IncSearch = DMInv.cxKrasniyText
              Styles.Selection = DMInv.cxJoltiyFon
              Styles.Header = DMInv.cxSiniyText
              object dbg3DBTableView1DRTYPE: TcxGridDBColumn
                DataBinding.FieldName = 'DRTYPE'
                PropertiesClassName = 'TcxLookupComboBoxProperties'
                Properties.DropDownListStyle = lsFixedList
                Properties.ImmediatePost = True
                Properties.KeyFieldNames = 'SDID'
                Properties.ListColumns = <
                  item
                    FieldName = 'SDNAME'
                  end>
                Properties.ListOptions.ShowHeader = False
                Properties.ListSource = dsRepackTypes
                Width = 132
              end
              object dbg3DBTableView1DRCNT: TcxGridDBColumn
                DataBinding.FieldName = 'DRCNT'
                Width = 71
              end
            end
            object dbg3Level1: TcxGridLevel
              GridView = dbg3DBTableView1
            end
          end
        end
        object GroupBox6: TGroupBox
          Left = 167
          Top = 45
          Width = 162
          Height = 156
          Caption = ' '#1057#1090#1072#1085#1076#1072#1088#1090#1085#1099#1081' '#1075#1088#1091#1079' '
          Font.Charset = RUSSIAN_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 18
          object Label33: TLabel
            Left = 4
            Top = 16
            Width = 39
            Height = 13
            Caption = #1042#1077#1089' ('#1082#1075')'
            FocusControl = edDGSTDW
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
          end
          object Label34: TLabel
            Left = 102
            Top = 16
            Width = 56
            Height = 13
            Caption = #1054#1073#1098#1105#1084' ('#1084'3)'
            FocusControl = edDGSTDV
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
          end
          object Label35: TLabel
            Left = 4
            Top = 61
            Width = 96
            Height = 13
            Caption = #1054#1073#1098#1105#1084' '#1073#1077#1079' '#1046#1059' ('#1084'3)'
            FocusControl = edDGWOPACKSTDV
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
          end
          object Label97: TLabel
            Left = 4
            Top = 85
            Width = 98
            Height = 13
            Caption = #1054#1073#1098#1105#1084' '#1076#1083#1103' '#1046#1059' ('#1084'3)'
            FocusControl = edDGFORPACKSTDV
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
          end
          object Label105: TLabel
            Left = 28
            Top = 110
            Width = 74
            Height = 13
            Caption = #1054#1073#1098#1105#1084' '#1052#1059' ('#1084'3)'
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
          end
          object edDGSTDW: TDBEdit
            Left = 4
            Top = 32
            Width = 92
            Height = 21
            DataField = 'DGSTDW'
            DataSource = dsDeGoods
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnKeyPress = edDGSTDWKeyPress
          end
          object edDGSTDV: TDBEdit
            Left = 102
            Top = 32
            Width = 57
            Height = 21
            TabStop = False
            Color = 14677503
            DataField = 'DGSTDV'
            DataSource = dsDeGoods
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            TabOrder = 1
          end
          object edDGWOPACKSTDV: TDBEdit
            Left = 102
            Top = 58
            Width = 57
            Height = 21
            DataField = 'DGWOPACKSTDV'
            DataSource = dsDeGoods
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            TabOrder = 2
            OnKeyPress = edDGSTDWKeyPress
          end
          object edDGFORPACKSTDV: TDBEdit
            Left = 102
            Top = 83
            Width = 57
            Height = 21
            DataField = 'DGFORPACKSTDV'
            DataSource = dsDeGoods
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            TabOrder = 3
            OnKeyPress = edDGSTDWKeyPress
          end
          object edDPSOFTPACKSTDV: TDBEdit
            Left = 102
            Top = 107
            Width = 57
            Height = 21
            DataField = 'DPSOFTPACKSTDV'
            DataSource = dsDePack
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            TabOrder = 4
            OnKeyPress = edDGSTDWKeyPress
          end
        end
        object GroupBox7: TGroupBox
          Left = 327
          Top = 45
          Width = 162
          Height = 156
          Caption = ' '#1053#1077#1089#1090#1072#1085#1076#1072#1088#1090#1085#1099#1081' '#1075#1088#1091#1079' '
          Font.Charset = RUSSIAN_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 19
          object Label36: TLabel
            Left = 4
            Top = 16
            Width = 39
            Height = 13
            Caption = #1042#1077#1089' ('#1082#1075')'
            FocusControl = edDGNSTDW
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
          end
          object Label37: TLabel
            Left = 102
            Top = 16
            Width = 56
            Height = 13
            Caption = #1054#1073#1098#1105#1084' ('#1084'3)'
            FocusControl = edDGNSTDV
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
          end
          object Label100: TLabel
            Left = 4
            Top = 59
            Width = 96
            Height = 13
            Caption = #1054#1073#1098#1105#1084' '#1073#1077#1079' '#1046#1059' ('#1084'3)'
            FocusControl = edDGWOPACKSTDV
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
          end
          object Label101: TLabel
            Left = 4
            Top = 84
            Width = 98
            Height = 13
            Caption = #1054#1073#1098#1105#1084' '#1076#1083#1103' '#1046#1059' ('#1084'3)'
            FocusControl = edDGFORPACKSTDV
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
          end
          object Label106: TLabel
            Left = 28
            Top = 109
            Width = 74
            Height = 13
            Caption = #1054#1073#1098#1105#1084' '#1052#1059' ('#1084'3)'
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clNavy
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
          end
          object edDGNSTDW: TDBEdit
            Left = 4
            Top = 32
            Width = 92
            Height = 21
            DataField = 'DGNSTDW'
            DataSource = dsDeGoods
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            OnKeyPress = edDGSTDWKeyPress
          end
          object edDGNSTDV: TDBEdit
            Left = 102
            Top = 32
            Width = 57
            Height = 21
            TabStop = False
            Color = 14677503
            DataField = 'DGNSTDV'
            DataSource = dsDeGoods
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            ReadOnly = True
            TabOrder = 1
          end
          object edDGWOPACKNSTDV: TDBEdit
            Left = 102
            Top = 57
            Width = 57
            Height = 21
            DataField = 'DGWOPACKNSTDV'
            DataSource = dsDeGoods
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            TabOrder = 2
            OnKeyPress = edDGSTDWKeyPress
          end
          object edDGFORPACKNSTDV: TDBEdit
            Left = 102
            Top = 82
            Width = 57
            Height = 21
            DataField = 'DGFORPACKNSTDV'
            DataSource = dsDeGoods
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            TabOrder = 3
            OnKeyPress = edDGSTDWKeyPress
          end
          object edDPSOFTPACKNSTDV: TDBEdit
            Left = 102
            Top = 105
            Width = 57
            Height = 21
            DataField = 'DPSOFTPACKNSTDV'
            DataSource = dsDePack
            Font.Charset = RUSSIAN_CHARSET
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            TabOrder = 4
            OnKeyPress = edDGSTDWKeyPress
          end
        end
      end
    end
    object tsCapture: TcxTabSheet
      Caption = #1047#1072#1073#1086#1088
      ImageIndex = 3
      object pCapture: TPanel
        Left = 0
        Top = 0
        Width = 976
        Height = 451
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object Label61: TLabel
          Left = 4
          Top = 4
          Width = 100
          Height = 13
          Caption = #1040#1076#1088#1077#1089' '#1079#1072#1073#1086#1088#1072' '#1075#1088#1091#1079#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label62: TLabel
          Left = 440
          Top = 4
          Width = 88
          Height = 13
          Caption = #1050#1086#1085#1090#1072#1082#1090#1085#1086#1077' '#1083#1080#1094#1086
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label63: TLabel
          Left = 4
          Top = 44
          Width = 67
          Height = 13
          Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label64: TLabel
          Left = 4
          Top = 108
          Width = 173
          Height = 13
          Caption = #1040#1076#1088#1077#1089' '#1079#1072#1073#1086#1088#1072' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074' '#1085#1072' '#1075#1088#1091#1079
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label65: TLabel
          Left = 440
          Top = 108
          Width = 88
          Height = 13
          Caption = #1050#1086#1085#1090#1072#1082#1090#1085#1086#1077' '#1083#1080#1094#1086
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label66: TLabel
          Left = 4
          Top = 148
          Width = 67
          Height = 13
          Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label67: TLabel
          Left = 4
          Top = 215
          Width = 64
          Height = 13
          Caption = #1044#1072#1090#1072' '#1079#1072#1073#1086#1088#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label68: TLabel
          Left = 3
          Top = 255
          Width = 50
          Height = 13
          Caption = #1042#1099#1087#1086#1083#1085#1077#1085
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label69: TLabel
          Left = 203
          Top = 215
          Width = 39
          Height = 13
          Caption = #1042#1077#1089' ('#1082#1075')'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label70: TLabel
          Left = 263
          Top = 215
          Width = 29
          Height = 13
          Caption = 'V ('#1084'3)'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label71: TLabel
          Left = 92
          Top = 255
          Width = 81
          Height = 13
          Caption = #1058#1080#1087' '#1072#1074#1090#1086#1084#1086#1073#1080#1083#1103
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label72: TLabel
          Left = 239
          Top = 255
          Width = 70
          Height = 13
          Caption = #1058#1072#1088#1080#1092#1072#1103' '#1079#1086#1085#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label73: TLabel
          Left = 314
          Top = 215
          Width = 66
          Height = 13
          Caption = #1042#1085#1091#1090#1088#1080#1090#1072#1088#1085#1086
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label74: TLabel
          Left = 396
          Top = 215
          Width = 57
          Height = 13
          Caption = #1055#1088#1080#1077#1093#1072#1090#1100' '#1089
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label75: TLabel
          Left = 459
          Top = 215
          Width = 64
          Height = 13
          Caption = #1055#1088#1080#1077#1093#1072#1090#1100' '#1087#1086
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label76: TLabel
          Left = 396
          Top = 255
          Width = 52
          Height = 13
          Caption = #1055#1088#1080#1077#1093#1072#1083' '#1074
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label77: TLabel
          Left = 459
          Top = 255
          Width = 40
          Height = 13
          Caption = #1059#1077#1093#1072#1083' '#1074
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label78: TLabel
          Left = 529
          Top = 255
          Width = 42
          Height = 13
          Caption = #1055#1088#1086#1089#1090#1086#1081
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label79: TLabel
          Left = 637
          Top = 215
          Width = 49
          Height = 13
          Caption = #1055#1086#1083#1091#1095#1077#1085#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label80: TLabel
          Left = 4
          Top = 333
          Width = 102
          Height = 13
          Caption = #1055#1086#1078#1077#1083#1072#1085#1080#1103' '#1082#1083#1080#1077#1085#1090#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object sbAddr: TSpeedButton
          Left = 696
          Top = 18
          Width = 23
          Height = 22
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            0400000000000001000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
            300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
            330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
            333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
            339977FF777777773377000BFB03333333337773FF733333333F333000333333
            3300333777333333337733333333333333003333333333333377333333333333
            333333333333333333FF33333333333330003333333333333777333333333333
            3000333333333333377733333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = sbAddrClick
        end
        object sbAddr_D: TSpeedButton
          Left = 696
          Top = 122
          Width = 23
          Height = 22
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            0400000000000001000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
            300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
            330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
            333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
            339977FF777777773377000BFB03333333337773FF733333333F333000333333
            3300333777333333337733333333333333003333333333333377333333333333
            333333333333333333FF33333333333330003333333333333777333333333333
            3000333333333333377733333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = sbAddr_DClick
        end
        object sbAddrClear: TSpeedButton
          Left = 696
          Top = 162
          Width = 23
          Height = 22
          Hint = #1054#1090#1084#1077#1085#1080#1090#1100' '#1079#1072#1073#1086#1088' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
            555557777F777555F55500000000555055557777777755F75555005500055055
            555577F5777F57555555005550055555555577FF577F5FF55555500550050055
            5555577FF77577FF555555005050110555555577F757777FF555555505099910
            555555FF75777777FF555005550999910555577F5F77777775F5500505509990
            3055577F75F77777575F55005055090B030555775755777575755555555550B0
            B03055555F555757575755550555550B0B335555755555757555555555555550
            BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
            50BB555555555555575F555555555555550B5555555555555575}
          NumGlyphs = 2
          ParentShowHint = False
          ShowHint = True
          OnClick = sbAddrClearClick
        end
        object sbAutoChoiseC: TSpeedButton
          Left = 210
          Top = 297
          Width = 23
          Height = 21
          Hint = #1040#1074#1090#1086#1084#1072#1090#1080#1095#1077#1089#1082#1080#1081' '#1074#1099#1073#1086#1088' '#1090#1080#1087#1072' '#1072#1074#1090#1086#1084#1086#1073#1080#1083#1103
          Flat = True
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            04000000000080000000120B0000120B00001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFF000
            FFFFF00770000007000FFB0F00B33000030FFBB00BBBBB00B30FFFBBBBB3333B
            B3FFFF0B00F0B000FFFFFF0B00B0B030FFFFFF000000000FFFFFFFFFFFFFFFBF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
          ParentShowHint = False
          ShowHint = True
          OnClick = sbAutoChoiseCClick
        end
        object edATID: TcxDBLookupComboBox
          Left = 92
          Top = 270
          DataBinding.DataField = 'ATID'
          DataBinding.DataSource = dsCapture
          Properties.DropDownListStyle = lsFixedList
          Properties.ImmediatePost = True
          Properties.KeyFieldNames = 'ATID'
          Properties.ListColumns = <
            item
              FieldName = 'ATDESCRIPTION'
            end>
          Properties.ListOptions.ShowHeader = False
          Properties.ListSource = dsAutoTypes
          Style.BorderStyle = ebs3D
          Style.Shadow = False
          Style.ButtonStyle = btsDefault
          TabOrder = 0
          Width = 141
        end
        object edCLADRESS: TDBEdit
          Left = 4
          Top = 18
          Width = 436
          Height = 21
          TabStop = False
          DataField = 'CLADRESS'
          DataSource = dsCapture
          ReadOnly = True
          TabOrder = 1
        end
        object edCLADRESS_D: TDBEdit
          Left = 4
          Top = 122
          Width = 436
          Height = 21
          TabStop = False
          DataField = 'CLADRESS_D'
          DataSource = dsCapture
          ReadOnly = True
          TabOrder = 2
        end
        object edCLCOMMENT: TDBMemo
          Left = 4
          Top = 58
          Width = 686
          Height = 47
          DataField = 'CLCOMMENT'
          DataSource = dsCapture
          ReadOnly = True
          ScrollBars = ssVertical
          TabOrder = 3
          WantReturns = False
        end
        object edCLCOMMENT_D: TDBMemo
          Left = 4
          Top = 162
          Width = 686
          Height = 47
          DataField = 'CLCOMMENT_D'
          DataSource = dsCapture
          ReadOnly = True
          ScrollBars = ssVertical
          TabOrder = 4
          WantReturns = False
        end
        object edCRFIO: TDBEdit
          Left = 440
          Top = 18
          Width = 250
          Height = 21
          TabStop = False
          DataField = 'CRFIO'
          DataSource = dsCapture
          ReadOnly = True
          TabOrder = 5
        end
        object edCRFIO_D: TDBEdit
          Left = 440
          Top = 122
          Width = 250
          Height = 21
          TabStop = False
          DataField = 'CRFIO_D'
          DataSource = dsCapture
          ReadOnly = True
          TabOrder = 6
        end
        object edDCAGREE: TDBCheckBox
          Left = 92
          Top = 230
          Width = 90
          Height = 23
          Caption = #1057#1086#1075#1083#1072#1089#1086#1074#1072#1085#1072
          DataField = 'DCAGREE'
          DataSource = dsCapture
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 7
          ValueChecked = '1'
          ValueUnchecked = '0'
          WordWrap = True
        end
        object edDCCOMMENT: TDBMemo
          Left = 4
          Top = 352
          Width = 715
          Height = 79
          DataField = 'DCCOMMENT'
          DataSource = dsCapture
          ScrollBars = ssVertical
          TabOrder = 8
          WantReturns = False
        end
        object edDCDATE: TcxDBDateEdit
          Left = 4
          Top = 230
          DataBinding.DataField = 'DCDATE'
          DataBinding.DataSource = dsCapture
          Properties.ImmediatePost = True
          Style.BorderStyle = ebs3D
          Style.Shadow = False
          Style.ButtonStyle = btsDefault
          TabOrder = 9
          Width = 82
        end
        object edDCDATELETTER: TcxDBDateEdit
          Left = 637
          Top = 230
          DataBinding.DataField = 'DCDATELETTER'
          DataBinding.DataSource = dsCapture
          Properties.ImmediatePost = True
          Style.BorderStyle = ebs3D
          Style.Shadow = False
          Style.ButtonStyle = btsDefault
          TabOrder = 10
          Width = 82
        end
        object edDCDATEOK: TDBEdit
          Left = 3
          Top = 270
          Width = 69
          Height = 21
          TabStop = False
          Color = 14677503
          DataField = 'DCDATEOK'
          DataSource = dsCapture
          ReadOnly = True
          TabOrder = 11
        end
        object edDCDEADTIME: TcxDBTimeEdit
          Left = 529
          Top = 270
          DataBinding.DataField = 'DCDEADTIME'
          DataBinding.DataSource = dsCapture
          Properties.ImmediatePost = True
          Properties.TimeFormat = tfHourMin
          Style.BorderStyle = ebs3D
          Style.ButtonTransparency = ebtNone
          TabOrder = 12
          Width = 57
        end
        object edDCDEADTIMEAGREE: TDBCheckBox
          Left = 607
          Top = 269
          Width = 83
          Height = 23
          Caption = #1057' '#1087#1088#1086#1089#1090#1086#1077#1084' '#1089#1086#1075#1083#1072#1089#1077#1085
          DataField = 'DCDEADTIMEAGREE'
          DataSource = dsCapture
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 13
          ValueChecked = '1'
          ValueUnchecked = '0'
          WordWrap = True
        end
        object edDCINTARE: TDBEdit
          Left = 314
          Top = 230
          Width = 66
          Height = 21
          TabStop = False
          DataField = 'DCINTARE'
          DataSource = dsCapture
          TabOrder = 14
        end
        object edDCISLETTER: TDBCheckBox
          Left = 540
          Top = 226
          Width = 92
          Height = 23
          Caption = #1053#1091#1078#1085#1072' '#1076#1086#1074#1077#1088#1077#1085#1085#1086#1089#1090#1100
          DataField = 'DCISLETTER'
          DataSource = dsCapture
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 15
          ValueChecked = '1'
          ValueUnchecked = '0'
          WordWrap = True
        end
        object edDCISTOWN: TcxDBLookupComboBox
          Left = 239
          Top = 270
          DataBinding.DataField = 'DCISTOWN'
          DataBinding.DataSource = dsCapture
          Properties.DropDownListStyle = lsFixedList
          Properties.ImmediatePost = True
          Properties.KeyFieldNames = 'SDID'
          Properties.ListColumns = <
            item
              FieldName = 'SDNAME'
            end>
          Properties.ListOptions.ShowHeader = False
          Properties.ListSource = dsIsTown
          Style.BorderStyle = ebs3D
          Style.Shadow = False
          Style.ButtonStyle = btsDefault
          TabOrder = 16
          Width = 141
        end
        object edDCNEEDTIMEEND: TcxDBTimeEdit
          Left = 459
          Top = 230
          DataBinding.DataField = 'DCNEEDTIMEEND'
          DataBinding.DataSource = dsCapture
          Properties.ImmediatePost = True
          Properties.TimeFormat = tfHourMin
          Style.BorderStyle = ebs3D
          Style.ButtonTransparency = ebtNone
          TabOrder = 17
          Width = 57
        end
        object edDCNEEDTIMESTART: TcxDBTimeEdit
          Left = 396
          Top = 230
          DataBinding.DataField = 'DCNEEDTIMESTART'
          DataBinding.DataSource = dsCapture
          Properties.ImmediatePost = True
          Properties.TimeFormat = tfHourMin
          Style.BorderStyle = ebs3D
          Style.ButtonTransparency = ebtNone
          TabOrder = 18
          Width = 57
        end
        object edDCTIMEIN: TcxDBTimeEdit
          Left = 396
          Top = 270
          DataBinding.DataField = 'DCTIMEIN'
          DataBinding.DataSource = dsCapture
          Properties.ImmediatePost = True
          Properties.TimeFormat = tfHourMin
          Style.BorderStyle = ebs3D
          Style.ButtonTransparency = ebtNone
          TabOrder = 19
          Width = 57
        end
        object edDCTIMEOUT: TcxDBTimeEdit
          Left = 459
          Top = 270
          DataBinding.DataField = 'DCTIMEOUT'
          DataBinding.DataSource = dsCapture
          Properties.ImmediatePost = True
          Properties.TimeFormat = tfHourMin
          Style.BorderStyle = ebs3D
          Style.ButtonTransparency = ebtNone
          TabOrder = 20
          Width = 57
        end
        object edDCVOLUME: TDBEdit
          Left = 263
          Top = 230
          Width = 45
          Height = 21
          DataField = 'DCVOLUME'
          DataSource = dsCapture
          TabOrder = 21
          OnKeyPress = edDGSTDWKeyPress
        end
        object edDCWEIGHT: TDBEdit
          Left = 203
          Top = 230
          Width = 60
          Height = 21
          DataField = 'DCWEIGHT'
          DataSource = dsCapture
          TabOrder = 22
          OnKeyPress = edDGSTDWKeyPress
        end
      end
    end
    object tsDelivery: TcxTabSheet
      Caption = #1044#1086#1089#1090#1072#1074#1082#1072
      ImageIndex = 4
      object pDelivery: TPanel
        Left = 0
        Top = 0
        Width = 976
        Height = 451
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object Label103: TLabel
          Left = 4
          Top = 333
          Width = 102
          Height = 13
          Caption = #1055#1086#1078#1077#1083#1072#1085#1080#1103' '#1082#1083#1080#1077#1085#1090#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label81: TLabel
          Left = 4
          Top = 4
          Width = 113
          Height = 13
          Caption = #1040#1076#1088#1077#1089' '#1076#1086#1089#1090#1072#1074#1082#1080' '#1075#1088#1091#1079#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label82: TLabel
          Left = 440
          Top = 4
          Width = 88
          Height = 13
          Caption = #1050#1086#1085#1090#1072#1082#1090#1085#1086#1077' '#1083#1080#1094#1086
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label83: TLabel
          Left = 4
          Top = 44
          Width = 67
          Height = 13
          Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label87: TLabel
          Left = 4
          Top = 215
          Width = 77
          Height = 13
          Caption = #1044#1072#1090#1072' '#1076#1086#1089#1090#1072#1074#1082#1080
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label88: TLabel
          Left = 3
          Top = 255
          Width = 56
          Height = 13
          Caption = #1042#1099#1087#1086#1083#1085#1077#1085#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label91: TLabel
          Left = 92
          Top = 255
          Width = 81
          Height = 13
          Caption = #1058#1080#1087' '#1072#1074#1090#1086#1084#1086#1073#1080#1083#1103
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label92: TLabel
          Left = 239
          Top = 255
          Width = 70
          Height = 13
          Caption = #1058#1072#1088#1080#1092#1072#1103' '#1079#1086#1085#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label94: TLabel
          Left = 396
          Top = 215
          Width = 57
          Height = 13
          Caption = #1055#1088#1080#1077#1093#1072#1090#1100' '#1089
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label95: TLabel
          Left = 459
          Top = 215
          Width = 64
          Height = 13
          Caption = #1055#1088#1080#1077#1093#1072#1090#1100' '#1087#1086
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label96: TLabel
          Left = 396
          Top = 255
          Width = 52
          Height = 13
          Caption = #1055#1088#1080#1077#1093#1072#1083' '#1074
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label98: TLabel
          Left = 459
          Top = 255
          Width = 40
          Height = 13
          Caption = #1059#1077#1093#1072#1083' '#1074
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label99: TLabel
          Left = 529
          Top = 255
          Width = 42
          Height = 13
          Caption = #1055#1088#1086#1089#1090#1086#1081
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object sbdAddr: TSpeedButton
          Left = 696
          Top = 18
          Width = 23
          Height = 22
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            0400000000000001000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
            300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
            330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
            333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
            339977FF777777773377000BFB03333333337773FF733333333F333000333333
            3300333777333333337733333333333333003333333333333377333333333333
            333333333333333333FF33333333333330003333333333333777333333333333
            3000333333333333377733333333333333333333333333333333}
          NumGlyphs = 2
          OnClick = sbdAddrClick
        end
        object sbAutoChoiseD: TSpeedButton
          Left = 210
          Top = 297
          Width = 23
          Height = 21
          Hint = #1040#1074#1090#1086#1084#1072#1090#1080#1095#1077#1089#1082#1080#1081' '#1074#1099#1073#1086#1088' '#1090#1080#1087#1072' '#1072#1074#1090#1086#1084#1086#1073#1080#1083#1103
          Flat = True
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            04000000000080000000120B0000120B00001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFF000
            FFFFF00770000007000FFB0F00B33000030FFBB00BBBBB00B30FFFBBBBB3333B
            B3FFFF0B00F0B000FFFFFF0B00B0B030FFFFFF000000000FFFFFFFFFFFFFFFBF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
          ParentShowHint = False
          ShowHint = True
          OnClick = sbAutoChoiseDClick
        end
        object eddATID: TcxDBLookupComboBox
          Left = 92
          Top = 270
          DataBinding.DataField = 'ATID'
          DataBinding.DataSource = dsDelivery
          Properties.DropDownListStyle = lsFixedList
          Properties.ImmediatePost = True
          Properties.KeyFieldNames = 'ATID'
          Properties.ListColumns = <
            item
              FieldName = 'ATDESCRIPTION'
            end>
          Properties.ListOptions.ShowHeader = False
          Properties.ListSource = dsAutoTypes
          Style.BorderStyle = ebs3D
          Style.Shadow = False
          Style.ButtonStyle = btsDefault
          TabOrder = 0
          Width = 141
        end
        object eddCLADRESS: TDBEdit
          Left = 4
          Top = 18
          Width = 436
          Height = 21
          TabStop = False
          DataField = 'CLADRESS'
          DataSource = dsDelivery
          ReadOnly = True
          TabOrder = 1
        end
        object eddCLCOMMENT: TDBMemo
          Left = 4
          Top = 58
          Width = 686
          Height = 47
          DataField = 'CLCOMMENT'
          DataSource = dsDelivery
          ReadOnly = True
          ScrollBars = ssVertical
          TabOrder = 2
          WantReturns = False
        end
        object eddCRFIO: TDBEdit
          Left = 440
          Top = 18
          Width = 250
          Height = 21
          TabStop = False
          DataField = 'CRFIO'
          DataSource = dsDelivery
          ReadOnly = True
          TabOrder = 3
        end
        object edDDAGREE: TDBCheckBox
          Left = 92
          Top = 230
          Width = 90
          Height = 23
          Caption = #1057#1086#1075#1083#1072#1089#1086#1074#1072#1085#1072
          DataField = 'DDAGREE'
          DataSource = dsDelivery
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 4
          ValueChecked = '1'
          ValueUnchecked = '0'
          WordWrap = True
        end
        object edDDCOMMENT: TDBMemo
          Left = 4
          Top = 352
          Width = 715
          Height = 79
          DataField = 'DDCOMMENT'
          DataSource = dsDelivery
          ScrollBars = ssVertical
          TabOrder = 5
          WantReturns = False
        end
        object edDDDATE: TcxDBDateEdit
          Left = 4
          Top = 230
          DataBinding.DataField = 'DDDATE'
          DataBinding.DataSource = dsDelivery
          Properties.ImmediatePost = True
          Style.BorderStyle = ebs3D
          Style.Shadow = False
          Style.ButtonStyle = btsDefault
          TabOrder = 6
          Width = 82
        end
        object edDDDATEOK: TDBEdit
          Left = 3
          Top = 270
          Width = 69
          Height = 21
          TabStop = False
          Color = 14677503
          DataField = 'DDDATEOK'
          DataSource = dsDelivery
          ReadOnly = True
          TabOrder = 7
        end
        object edDDDEADTIME: TcxDBTimeEdit
          Left = 529
          Top = 270
          DataBinding.DataField = 'DDDEADTIME'
          DataBinding.DataSource = dsDelivery
          Properties.ImmediatePost = True
          Properties.TimeFormat = tfHourMin
          Style.BorderStyle = ebs3D
          Style.ButtonTransparency = ebtNone
          TabOrder = 8
          Width = 57
        end
        object edDDDEADTIMEAGREE: TDBCheckBox
          Left = 607
          Top = 270
          Width = 83
          Height = 23
          Caption = #1057' '#1087#1088#1086#1089#1090#1086#1077#1084' '#1089#1086#1075#1083#1072#1089#1077#1085
          DataField = 'DDDEADTIMEAGREE'
          DataSource = dsDelivery
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 9
          ValueChecked = '1'
          ValueUnchecked = '0'
          WordWrap = True
        end
        object edDDISTOWN: TcxDBLookupComboBox
          Left = 239
          Top = 270
          DataBinding.DataField = 'DDISTOWN'
          DataBinding.DataSource = dsDelivery
          Properties.DropDownListStyle = lsFixedList
          Properties.ImmediatePost = True
          Properties.KeyFieldNames = 'SDID'
          Properties.ListColumns = <
            item
              FieldName = 'SDNAME'
            end>
          Properties.ListOptions.ShowHeader = False
          Properties.ListSource = dsIsTown
          Style.BorderStyle = ebs3D
          Style.Shadow = False
          Style.ButtonStyle = btsDefault
          TabOrder = 10
          Width = 141
        end
        object edDDNEEDTIMEEND: TcxDBTimeEdit
          Left = 459
          Top = 230
          DataBinding.DataField = 'DDNEEDTIMEEND'
          DataBinding.DataSource = dsDelivery
          Properties.ImmediatePost = True
          Properties.TimeFormat = tfHourMin
          Style.BorderStyle = ebs3D
          Style.ButtonTransparency = ebtNone
          TabOrder = 11
          Width = 57
        end
        object edDDNEEDTIMESTART: TcxDBTimeEdit
          Left = 396
          Top = 230
          DataBinding.DataField = 'DDNEEDTIMESTART'
          DataBinding.DataSource = dsDelivery
          Properties.ImmediatePost = True
          Properties.TimeFormat = tfHourMin
          Style.BorderStyle = ebs3D
          Style.ButtonTransparency = ebtNone
          TabOrder = 12
          Width = 57
        end
        object edDDTIMEIN: TcxDBTimeEdit
          Left = 396
          Top = 270
          DataBinding.DataField = 'DDTIMEIN'
          DataBinding.DataSource = dsDelivery
          Properties.ImmediatePost = True
          Properties.TimeFormat = tfHourMin
          Style.BorderStyle = ebs3D
          Style.ButtonTransparency = ebtNone
          TabOrder = 13
          Width = 57
        end
        object edDDTIMEOUT: TcxDBTimeEdit
          Left = 459
          Top = 270
          DataBinding.DataField = 'DDTIMEOUT'
          DataBinding.DataSource = dsDelivery
          Properties.ImmediatePost = True
          Properties.TimeFormat = tfHourMin
          Style.BorderStyle = ebs3D
          Style.ButtonTransparency = ebtNone
          TabOrder = 14
          Width = 57
        end
      end
    end
    object tsInsure: TcxTabSheet
      Caption = #1057#1090#1088#1072#1093#1086#1074#1082#1072
      ImageIndex = 5
      object gbInsurance: TGroupBox
        Left = 0
        Top = 0
        Width = 719
        Height = 60
        Align = alCustom
        Caption = #1057#1090#1088#1072#1093#1086#1074#1082#1072' '#1075#1088#1091#1079#1072
        Ctl3D = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
        object Label84: TLabel
          Left = 4
          Top = 18
          Width = 85
          Height = 13
          Caption = #1057#1090#1086#1080#1084#1086#1089#1090#1100' '#1075#1088#1091#1079#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label85: TLabel
          Left = 118
          Top = 18
          Width = 105
          Height = 13
          Caption = #1057#1090#1072#1074#1082#1072' '#1089#1090#1088#1072#1093#1086#1074#1072#1085#1080#1103
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label86: TLabel
          Left = 232
          Top = 18
          Width = 116
          Height = 13
          Caption = #1042#1099#1075#1086#1076#1086#1087#1088#1080#1086#1073#1088#1077#1090#1072#1090#1077#1083#1100
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object edDIPRECOST: TcxDBCalcEdit
          Left = 4
          Top = 33
          DataBinding.DataField = 'DIPRECOST'
          DataBinding.DataSource = dsDeInsurance
          ParentFont = False
          Properties.ImmediatePost = True
          Properties.QuickClose = True
          Style.BorderStyle = ebs3D
          Style.Font.Charset = DEFAULT_CHARSET
          Style.Font.Color = clBlack
          Style.Font.Height = -11
          Style.Font.Name = 'Tahoma'
          Style.Font.Style = []
          Style.ButtonStyle = btsDefault
          Style.IsFontAssigned = True
          TabOrder = 0
          OnKeyPress = edDGSTDWKeyPress
          Width = 109
        end
        object edDIINSTYPE: TcxDBLookupComboBox
          Left = 118
          Top = 33
          DataBinding.DataField = 'DIINSTYPE'
          DataBinding.DataSource = dsDeInsurance
          ParentFont = False
          Properties.DropDownListStyle = lsFixedList
          Properties.ImmediatePost = True
          Properties.KeyFieldNames = 'ITID'
          Properties.ListColumns = <
            item
              FieldName = 'ITCOST'
            end>
          Properties.ListOptions.ShowHeader = False
          Properties.ListSource = dsInsuranceTariff
          Style.BorderStyle = ebs3D
          Style.Font.Charset = DEFAULT_CHARSET
          Style.Font.Color = clBlack
          Style.Font.Height = -11
          Style.Font.Name = 'Tahoma'
          Style.Font.Style = []
          Style.Shadow = False
          Style.ButtonStyle = btsDefault
          Style.IsFontAssigned = True
          TabOrder = 1
          Width = 109
        end
        object edDIINSGETTER: TcxDBLookupComboBox
          Left = 232
          Top = 33
          DataBinding.DataField = 'DIINSGETTER'
          DataBinding.DataSource = dsDeInsurance
          ParentFont = False
          Properties.DropDownListStyle = lsFixedList
          Properties.ImmediatePost = True
          Properties.KeyFieldNames = 'SDID'
          Properties.ListColumns = <
            item
              FieldName = 'SDNAME'
            end>
          Properties.ListOptions.ShowHeader = False
          Properties.ListSource = dsPayer
          Style.BorderStyle = ebs3D
          Style.Font.Charset = DEFAULT_CHARSET
          Style.Font.Color = clBlack
          Style.Font.Height = -11
          Style.Font.Name = 'Tahoma'
          Style.Font.Style = []
          Style.Shadow = False
          Style.ButtonStyle = btsDefault
          Style.IsFontAssigned = True
          TabOrder = 2
          Width = 109
        end
        object edDICANWOINSUR: TDBCheckBox
          Left = 486
          Top = 33
          Width = 156
          Height = 23
          Caption = #1056#1072#1079#1088#1077#1096#1077#1085#1086' '#1085#1077' '#1089#1090#1088#1072#1093#1086#1074#1072#1090#1100
          DataField = 'DICANWOINSUR'
          DataSource = dsDeInsurance
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          ValueChecked = '1'
          ValueUnchecked = '0'
          WordWrap = True
        end
      end
    end
    object tsOther: TcxTabSheet
      Caption = #1044#1086#1087'. '#1091#1089#1083#1091#1075#1080
      ImageIndex = 6
      object gbIntare: TGroupBox
        Left = 0
        Top = 2
        Width = 91
        Height = 60
        Align = alCustom
        Caption = #1042#1085#1091#1090#1088#1080#1090#1072#1088#1085#1086
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object Label89: TLabel
          Left = 6
          Top = 18
          Width = 61
          Height = 13
          Caption = #1050#1086#1083'-'#1074#1086' '#1084#1077#1089#1090
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object edDNCNT: TDBEdit
          Left = 6
          Top = 33
          Width = 78
          Height = 21
          DataField = 'DNCNT'
          DataSource = dsDeIntare
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
      end
      object gbRetDocs: TGroupBox
        Left = 100
        Top = 2
        Width = 619
        Height = 60
        Align = alCustom
        Caption = #1042#1086#1079#1074#1088#1072#1090' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object Label90: TLabel
          Left = 4
          Top = 18
          Width = 132
          Height = 13
          Caption = #1058#1080#1087' '#1074#1086#1079#1074#1088#1072#1090#1072' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label93: TLabel
          Left = 247
          Top = 18
          Width = 28
          Height = 13
          Caption = 'E-mail'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object edDRTYPE: TcxDBLookupComboBox
          Left = 4
          Top = 33
          DataBinding.DataField = 'DRTYPE'
          DataBinding.DataSource = dsRetDoc
          ParentFont = False
          Properties.DropDownListStyle = lsFixedList
          Properties.ImmediatePost = True
          Properties.KeyFieldNames = 'SDID'
          Properties.ListColumns = <
            item
              FieldName = 'SDNAME'
            end>
          Properties.ListOptions.ShowHeader = False
          Properties.ListSource = dsRetDocTypes
          Style.BorderStyle = ebs3D
          Style.Font.Charset = DEFAULT_CHARSET
          Style.Font.Color = clBlack
          Style.Font.Height = -11
          Style.Font.Name = 'Tahoma'
          Style.Font.Style = []
          Style.Shadow = False
          Style.ButtonStyle = btsDefault
          Style.IsFontAssigned = True
          TabOrder = 0
          Width = 237
        end
        object edDREMAIL: TDBEdit
          Left = 247
          Top = 33
          Width = 362
          Height = 21
          DataField = 'DREMAIL'
          DataSource = dsRetDoc
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
      end
      object gbPlombs: TGroupBox
        Left = 0
        Top = 62
        Width = 719
        Height = 164
        Caption = #1055#1083#1086#1084#1073#1080#1088#1086#1074#1082#1072' '#1075#1088#1091#1079#1072
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        object sbI4: TSpeedButton
          Left = 7
          Top = 22
          Width = 23
          Height = 22
          Flat = True
          Glyph.Data = {
            36040000424D3604000000000000360000002800000010000000100000000100
            2000000000000004000000000000000000000000000000000000FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF00FF00
            FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF000000
            FF000000FF000000FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000
            FF000000FF000000FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
            FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
            FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF000000FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
            0000FF000000FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00
            0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
            0000FF000000FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF000000FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
          OnClick = sbI4Click
        end
        object sbD4: TSpeedButton
          Left = 30
          Top = 22
          Width = 23
          Height = 22
          Flat = True
          Glyph.Data = {
            36040000424D3604000000000000360000002800000010000000100000000100
            2000000000000004000000000000000000000000000000000000FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF000000
            FF000000FF000000FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000
            FF000000FF000000FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
            FF00FF00FF00FF00FF00FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000FF00FF00FF00
            FF00FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
            0000FF000000FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00
            0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
            0000FF000000FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00000000000000000000000000FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
          OnClick = sbD4Click
        end
        object cxGrid4: TcxGrid
          Left = 6
          Top = 48
          Width = 703
          Height = 102
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          LookAndFeel.Kind = lfStandard
          object cxGridDBTableView4: TcxGridDBTableView
            NavigatorButtons.ConfirmDelete = False
            NavigatorButtons.First.Visible = True
            NavigatorButtons.PriorPage.Visible = True
            NavigatorButtons.Prior.Visible = True
            NavigatorButtons.Next.Visible = True
            NavigatorButtons.NextPage.Visible = True
            NavigatorButtons.Last.Visible = True
            NavigatorButtons.Insert.Visible = False
            NavigatorButtons.Append.Visible = False
            NavigatorButtons.Delete.Visible = False
            NavigatorButtons.Edit.Visible = False
            NavigatorButtons.Post.Visible = False
            NavigatorButtons.Cancel.Visible = False
            NavigatorButtons.Refresh.Visible = False
            NavigatorButtons.SaveBookmark.Visible = False
            NavigatorButtons.GotoBookmark.Visible = False
            NavigatorButtons.Filter.Visible = False
            DataController.DataModeController.GridMode = True
            DataController.DataSource = dsPlombs
            DataController.Summary.DefaultGroupSummaryItems = <>
            DataController.Summary.FooterSummaryItems = <>
            DataController.Summary.SummaryGroups = <>
            OptionsBehavior.CellHints = True
            OptionsBehavior.ImmediateEditor = False
            OptionsBehavior.IncSearch = True
            OptionsData.Deleting = False
            OptionsData.Inserting = False
            OptionsView.Navigator = True
            OptionsView.NavigatorOffset = 10
            OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
            OptionsView.ColumnAutoWidth = True
            OptionsView.GroupByBox = False
            OptionsView.Indicator = True
            OptionsView.ShowColumnFilterButtons = sfbAlways
            Preview.Visible = True
            Styles.IncSearch = DMInv.cxKrasniyText
            Styles.Selection = DMInv.cxJoltiyFon
            Styles.Header = DMInv.cxSiniyText
            object cxGridDBTableView4DPPLOMBTYPE: TcxGridDBColumn
              DataBinding.FieldName = 'DPPLOMBTYPE'
              PropertiesClassName = 'TcxLookupComboBoxProperties'
              Properties.DropDownListStyle = lsFixedList
              Properties.ImmediatePost = True
              Properties.KeyFieldNames = 'SDID'
              Properties.ListColumns = <
                item
                  FieldName = 'SDNAME'
                end>
              Properties.ListSource = dsPlombTypes
              Options.Filtering = False
              Options.Grouping = False
              Options.Sorting = False
              Width = 140
            end
            object cxGridDBTableView4DPCNT: TcxGridDBColumn
              DataBinding.FieldName = 'DPCNT'
              Options.Filtering = False
              Options.Grouping = False
              Options.Sorting = False
              Width = 49
            end
            object cxGridDBTableView4DPNUMBERS: TcxGridDBColumn
              DataBinding.FieldName = 'DPNUMBERS'
              Options.Filtering = False
              Options.Grouping = False
              Options.Sorting = False
              Width = 481
            end
          end
          object cxGridLevel4: TcxGridLevel
            GridView = cxGridDBTableView4
          end
        end
      end
    end
  end
  inherited dlgDS: TDataSource
    DataSet = qDeals
    OnDataChange = dlgDSDataChange
    Left = 320
    Top = 8
  end
  object qDeals: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qDealsAfterInsert
    BeforePost = qDealsBeforePost
    CachedUpdates = True
    SQL.Strings = (
      'SELECT D.*, O.OFOFFICE,'
      '       S.CLNAME SENDER, R.CLNAME RECIEVER,'
      '       P.CLNAME PERSON3, SD.SDNAME STATUS,'
      '       SA.CLADRESS ADRESS_S, RA.CLADRESS ADRESS_R,'
      '       SP.CRFIO FIO_S, RP.CRFIO FIO_R'
      '  FROM DEALS D'
      '  LEFT OUTER JOIN OFFICES O ON (D.OFID = O.OFID)'
      '  LEFT OUTER JOIN CLIENTS S ON (D.DECLID_S = S.CLID)'
      '  LEFT OUTER JOIN CLIENTS R ON (D.DECLID_R = R.CLID)'
      '  LEFT OUTER JOIN CLIENTS P ON (D.DECLID_3 = P.CLID)'
      '  LEFT OUTER JOIN CLADRES SA ON (D.DECDID_S = SA.CDID)'
      '  LEFT OUTER JOIN CLADRES RA ON (D.DECDID_R = RA.CDID)'
      '  LEFT OUTER JOIN CLPERSONS SP ON (D.DECRID_S = SP.CRID)'
      '  LEFT OUTER JOIN CLPERSONS RP ON (D.DECRID_R = RP.CRID)'
      '  LEFT OUTER JOIN SYS_DIC SD ON (D.DESTATUS = SD.SDID)'
      ' WHERE D.DEID = :DEID   ')
    UpdateObject = quDeals
    GeneratorField.Field = 'DEID'
    GeneratorField.Generator = 'GDEALS'
    Left = 344
    Top = 8
    ParamData = <
      item
        DataType = ftInteger
        Name = 'DEID'
        ParamType = ptUnknown
      end>
    object qDealsDEID: TIntegerField
      FieldName = 'DEID'
      Origin = '"DEALS"."DEID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      DisplayFormat = '#,##0'
      EditFormat = '0'
    end
    object qDealsOFID: TIntegerField
      FieldName = 'OFID'
      Origin = '"DEALS"."OFID"'
    end
    object qDealsDEOFIDSEND: TIntegerField
      FieldName = 'DEOFIDSEND'
      Origin = '"DEALS"."DEOFIDSEND"'
    end
    object qDealsDEOFIDDEST: TIntegerField
      FieldName = 'DEOFIDDEST'
      Origin = '"DEALS"."DEOFIDDEST"'
    end
    object qDealsDECLID_S: TIntegerField
      FieldName = 'DECLID_S'
      Origin = '"DEALS"."DECLID_S"'
    end
    object qDealsDECLID_R: TIntegerField
      FieldName = 'DECLID_R'
      Origin = '"DEALS"."DECLID_R"'
    end
    object qDealsDECLID_3: TIntegerField
      FieldName = 'DECLID_3'
      Origin = '"DEALS"."DECLID_3"'
    end
    object qDealsDEENTERED: TDateTimeField
      FieldName = 'DEENTERED'
      Origin = '"DEALS"."DEENTERED"'
    end
    object qDealsDEDATEINSEND: TDateTimeField
      FieldName = 'DEDATEINSEND'
      Origin = '"DEALS"."DEDATEINSEND"'
    end
    object qDealsDEDATEOUTSEND: TDateField
      Alignment = taCenter
      FieldName = 'DEDATEOUTSEND'
      Origin = '"DEALS"."DEDATEOUTSEND"'
    end
    object qDealsDEDATEINDEST: TDateField
      Alignment = taCenter
      FieldName = 'DEDATEINDEST'
      Origin = '"DEALS"."DEDATEINDEST"'
    end
    object qDealsDEDATERECIPIENT: TDateField
      Alignment = taCenter
      FieldName = 'DEDATERECIPIENT'
      Origin = '"DEALS"."DEDATERECIPIENT"'
    end
    object qDealsDECOST: TIBBCDField
      FieldName = 'DECOST'
      Origin = '"DEALS"."DECOST"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qDealsDENDS: TIBBCDField
      FieldName = 'DENDS'
      Origin = '"DEALS"."DENDS"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qDealsDEBALANCE: TIBBCDField
      FieldName = 'DEBALANCE'
      Origin = '"DEALS"."DEBALANCE"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qDealsDETYPE: TIntegerField
      FieldName = 'DETYPE'
      Origin = '"DEALS"."DETYPE"'
    end
    object qDealsDESTATUS: TIntegerField
      FieldName = 'DESTATUS'
      Origin = '"DEALS"."DESTATUS"'
    end
    object qDealsDECOMMENT: TIBStringField
      FieldName = 'DECOMMENT'
      Origin = '"DEALS"."DECOMMENT"'
      Size = 255
    end
    object qDealsDEUSERINS: TIBStringField
      FieldName = 'DEUSERINS'
      Origin = '"DEALS"."DEUSERINS"'
      Size = 40
    end
    object qDealsDEUSERUPD: TIBStringField
      FieldName = 'DEUSERUPD'
      Origin = '"DEALS"."DEUSERUPD"'
      Size = 40
    end
    object qDealsDEWHENUPD: TDateTimeField
      FieldName = 'DEWHENUPD'
      Origin = '"DEALS"."DEWHENUPD"'
    end
    object qDealsOFOFFICE: TIBStringField
      FieldName = 'OFOFFICE'
      Origin = '"OFFICES"."OFOFFICE"'
      Size = 40
    end
    object qDealsDEWAYBILL: TIBStringField
      FieldName = 'DEWAYBILL'
      Origin = '"DEALS"."DEWAYBILL"'
    end
    object qDealsDEUSERCLOSE: TIBStringField
      FieldName = 'DEUSERCLOSE'
      Origin = '"DEALS"."DEUSERCLOSE"'
      Size = 40
    end
    object qDealsSENDER: TIBStringField
      FieldName = 'SENDER'
      Origin = '"CLIENTS"."CLNAME"'
      Size = 255
    end
    object qDealsRECIEVER: TIBStringField
      FieldName = 'RECIEVER'
      Origin = '"CLIENTS"."CLNAME"'
      Size = 255
    end
    object qDealsSTATUS: TIBStringField
      Alignment = taCenter
      FieldName = 'STATUS'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qDealsDECDID_S: TIntegerField
      FieldName = 'DECDID_S'
      Origin = '"DEALS"."DECDID_S"'
    end
    object qDealsDECDID_R: TIntegerField
      FieldName = 'DECDID_R'
      Origin = '"DEALS"."DECDID_R"'
    end
    object qDealsDECRID_S: TIntegerField
      FieldName = 'DECRID_S'
      Origin = '"DEALS"."DECRID_S"'
    end
    object qDealsDECRID_R: TIntegerField
      FieldName = 'DECRID_R'
      Origin = '"DEALS"."DECRID_R"'
    end
    object qDealsADRESS_S: TIBStringField
      FieldName = 'ADRESS_S'
      Origin = '"CLADRES"."CLADRESS"'
      Size = 255
    end
    object qDealsADRESS_R: TIBStringField
      FieldName = 'ADRESS_R'
      Origin = '"CLADRES"."CLADRESS"'
      Size = 255
    end
    object qDealsFIO_S: TIBStringField
      FieldName = 'FIO_S'
      Origin = '"CLPERSONS"."CRFIO"'
      Size = 255
    end
    object qDealsFIO_R: TIBStringField
      FieldName = 'FIO_R'
      Origin = '"CLPERSONS"."CRFIO"'
      Size = 255
    end
    object qDealsPERSON3: TIBStringField
      FieldName = 'PERSON3'
      Origin = '"CLIENTS"."CLNAME"'
      Size = 255
    end
    object qDealsTTID: TIntegerField
      FieldName = 'TTID'
      Origin = '"DEALS"."TTID"'
    end
  end
  object quDeals: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DEID,'
      '  OFID,'
      '  DEOFIDSEND,'
      '  DEOFIDDEST,'
      '  DECLID_S,'
      '  DECLID_R,'
      '  DECLID_3,'
      '  DEENTERED,'
      '  DEDATEINSEND,'
      '  DEDATEOUTSEND,'
      '  DETIMEOUTSEND,'
      '  DEDATEINDEST,'
      '  DETIMEINDEST,'
      '  DEDATERECIPIENT,'
      '  DECOST,'
      '  DENDS,'
      '  DEBALANCE,'
      '  DETYPE,'
      '  DESTATUS,'
      '  DECOMMENT,'
      '  DEUSERINS,'
      '  DEUSERUPD,'
      '  DEWHENINS,'
      '  DEWHENUPD,'
      '  OFOFFICE'
      'from DEALS '
      'where'
      '  DEID = :DEID')
    ModifySQL.Strings = (
      'update DEALS'
      'set'
      '  DECLID_3 = :DECLID_3,'
      '  DECLID_R = :DECLID_R,'
      '  DECLID_S = :DECLID_S,'
      '  DECOMMENT = :DECOMMENT,'
      '  DECOST = :DECOST,'
      '  DEID = :DEID,'
      '  DENDS = :DENDS,'
      '  DEOFIDDEST = :DEOFIDDEST,'
      '  DEOFIDSEND = :DEOFIDSEND,'
      '  DESTATUS = :DESTATUS,'
      '  DETYPE = :DETYPE,'
      '  OFID = :OFID,'
      '  DEWAYBILL = :DEWAYBILL,'
      '  DECDID_S = :DECDID_S,'
      '  DECDID_R = :DECDID_R,'
      '  DECRID_S = :DECRID_S,'
      '  DECRID_R = :DECRID_R,'
      '  TTID = :TTID'
      'where'
      '  DEID = :OLD_DEID')
    InsertSQL.Strings = (
      'insert into DEALS'
      '  (DECLID_3, DECLID_R, DECLID_S, DECOMMENT, DECOST, '
      '   DEID, DENDS,'
      '   DEOFIDDEST, DEOFIDSEND, DESTATUS, DETYPE, '
      '   OFID, DEWAYBILL,'
      '   DECDID_S, DECDID_R, DECRID_S, DECRID_R, TTID)'
      'values'
      '  (:DECLID_3, :DECLID_R, :DECLID_S, :DECOMMENT, :DECOST,'
      '   :DEID, :DENDS,'
      '   :DEOFIDDEST, :DEOFIDSEND, :DESTATUS, :DETYPE,'
      '   :OFID, :DEWAYBILL,'
      '   :DECDID_S, :DECDID_R, :DECRID_S, :DECRID_R, :TTID)')
    Left = 368
    Top = 8
  end
  object dsTownSend: TDataSource
    DataSet = qTownSend
    Left = 64
    Top = 8
  end
  object qTownSend: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT O.OFID, O.OFOFFICE'
      '  FROM OFFICES O'
      ' ORDER BY O.OFTOWN')
    Left = 88
    Top = 8
  end
  object dsTownDest: TDataSource
    DataSet = qTownDest
    Left = 64
    Top = 40
  end
  object qTownDest: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT O.OFID, O.OFOFFICE'
      '  FROM OFFICES O'
      ' ORDER BY O.OFTOWN')
    Left = 88
    Top = 40
  end
  object dsDealsType: TDataSource
    DataSet = qDealsType
    Left = 616
  end
  object qDealsType: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT S.SDID, S.SDNAME'
      '  FROM SYS_DIC S'
      ' WHERE S.SDPARID = 8'
      ' ORDER BY S.SDID')
    Left = 640
  end
  object qDeGoods: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qDeGoodsAfterInsert
    BeforePost = qDealsBeforePost
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT *'
      '  FROM DEGOODS D'
      ' WHERE D.DEID = :DEID   ')
    UpdateObject = quDeGoods
    Left = 344
    Top = 40
    ParamData = <
      item
        DataType = ftInteger
        Name = 'DEID'
        ParamType = ptUnknown
      end>
    object qDeGoodsDEID: TIntegerField
      FieldName = 'DEID'
      Origin = '"DEGOODS"."DEID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qDeGoodsDGIND1: TIBStringField
      Alignment = taCenter
      FieldName = 'DGIND1'
      Origin = '"DEGOODS"."DGIND1"'
      Size = 5
    end
    object qDeGoodsDGIND2: TIBStringField
      Alignment = taCenter
      FieldName = 'DGIND2'
      Origin = '"DEGOODS"."DGIND2"'
      Size = 5
    end
    object qDeGoodsDGIND3: TIBStringField
      Alignment = taCenter
      FieldName = 'DGIND3'
      Origin = '"DEGOODS"."DGIND3"'
      Size = 10
    end
    object qDeGoodsDGIND4: TIBStringField
      Alignment = taCenter
      FieldName = 'DGIND4'
      Origin = '"DEGOODS"."DGIND4"'
      Size = 5
    end
    object qDeGoodsDGIND5: TIBStringField
      Alignment = taCenter
      FieldName = 'DGIND5'
      Origin = '"DEGOODS"."DGIND5"'
      Size = 5
    end
    object qDeGoodsDGGOODSDESCR: TIntegerField
      FieldName = 'DGGOODSDESCR'
      Origin = '"DEGOODS"."DGGOODSDESCR"'
    end
    object qDeGoodsDGGOODSDESCRTEXT: TIBStringField
      FieldName = 'DGGOODSDESCRTEXT'
      Origin = '"DEGOODS"."DGGOODSDESCRTEXT"'
      Size = 255
    end
    object qDeGoodsDGPRECOST: TIBBCDField
      FieldName = 'DGPRECOST'
      Origin = '"DEGOODS"."DGPRECOST"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qDeGoodsDGSMALLPIECECNT: TIntegerField
      Alignment = taCenter
      FieldName = 'DGSMALLPIECECNT'
      Origin = '"DEGOODS"."DGSMALLPIECECNT"'
    end
    object qDeGoodsDGTRANCPIECECNT: TIntegerField
      Alignment = taCenter
      FieldName = 'DGTRANCPIECECNT'
      Origin = '"DEGOODS"."DGTRANCPIECECNT"'
    end
    object qDeGoodsDGSTDW: TIBBCDField
      FieldName = 'DGSTDW'
      Origin = '"DEGOODS"."DGSTDW"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qDeGoodsDGSTDV: TIBBCDField
      FieldName = 'DGSTDV'
      Origin = '"DEGOODS"."DGSTDV"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qDeGoodsDGNSTDW: TIBBCDField
      FieldName = 'DGNSTDW'
      Origin = '"DEGOODS"."DGNSTDW"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qDeGoodsDGNSTDV: TIBBCDField
      FieldName = 'DGNSTDV'
      Origin = '"DEGOODS"."DGNSTDV"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qDeGoodsDGWOPACKSTDV: TIBBCDField
      FieldName = 'DGWOPACKSTDV'
      Origin = '"DEGOODS"."DGWOPACKSTDV"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qDeGoodsDGWOPACKNSTDV: TIBBCDField
      FieldName = 'DGWOPACKNSTDV'
      Origin = '"DEGOODS"."DGWOPACKNSTDV"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qDeGoodsDGFORPACKSTDV: TIBBCDField
      FieldName = 'DGFORPACKSTDV'
      Origin = '"DEGOODS"."DGFORPACKSTDV"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qDeGoodsDGFORPACKNSTDV: TIBBCDField
      FieldName = 'DGFORPACKNSTDV'
      Origin = '"DEGOODS"."DGFORPACKNSTDV"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qDeGoodsDGMAXLENGTH: TIBBCDField
      FieldName = 'DGMAXLENGTH'
      Origin = '"DEGOODS"."DGMAXLENGTH"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qDeGoodsDGMAXHEIGHT: TIBBCDField
      FieldName = 'DGMAXHEIGHT'
      Origin = '"DEGOODS"."DGMAXHEIGHT"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qDeGoodsDGISPALLET: TIntegerField
      FieldName = 'DGISPALLET'
      Origin = '"DEGOODS"."DGISPALLET"'
    end
    object qDeGoodsDGCLPACKSTATUS: TIntegerField
      FieldName = 'DGCLPACKSTATUS'
      Origin = '"DEGOODS"."DGCLPACKSTATUS"'
    end
    object qDeGoodsDGINFO: TIBStringField
      FieldName = 'DGINFO'
      Origin = '"DEGOODS"."DGINFO"'
      Size = 255
    end
  end
  object dsDeGoods: TDataSource
    DataSet = qDeGoods
    OnDataChange = dsDeGoodsDataChange
    Left = 320
    Top = 40
  end
  object qGoodsType: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT S.SDID, S.SDNAME'
      '  FROM SYS_DIC S'
      ' WHERE S.SDPARID = 10'
      ' ORDER BY S.SDNAME')
    Left = 208
    Top = 8
  end
  object dsGoodsType: TDataSource
    DataSet = qGoodsType
    Left = 184
    Top = 8
  end
  object quDeGoods: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DEID,'
      '  DGIND1,'
      '  DGIND2,'
      '  DGIND3,'
      '  DGIND4,'
      '  DGIND5,'
      '  DGGOODSDESCR,'
      '  DGGOODSDESCRTEXT,'
      '  DGPRECOST,'
      '  DGSMALLPIECECNT,'
      '  DGTRANCPIECECNT,'
      '  DGSTDW,'
      '  DGSTDV,'
      '  DGNSTDW,'
      '  DGNSTDV,'
      '  DGWOPACKSTDV,'
      '  DGWOPACKNSTDV,'
      '  DGFORPACKSTDV,'
      '  DGFORPACKNSTDV,'
      '  DGMAXLENGTH,'
      '  DGMAXHEIGHT,'
      '  DGISPALLET,'
      '  DGCLPACKSTATUS'
      'from DEGOODS '
      'where'
      '  DEID = :DEID')
    ModifySQL.Strings = (
      'update DEGOODS'
      'set'
      '  DEID = :DEID,'
      '  DGCLPACKSTATUS = :DGCLPACKSTATUS,'
      '  DGFORPACKNSTDV = :DGFORPACKNSTDV,'
      '  DGFORPACKSTDV = :DGFORPACKSTDV,'
      '  DGGOODSDESCR = :DGGOODSDESCR,'
      '  DGGOODSDESCRTEXT = :DGGOODSDESCRTEXT,'
      '  DGIND1 = :DGIND1,'
      '  DGIND2 = :DGIND2,'
      '  DGIND3 = :DGIND3,'
      '  DGIND4 = :DGIND4,'
      '  DGIND5 = :DGIND5,'
      '  DGISPALLET = :DGISPALLET,'
      '  DGMAXHEIGHT = :DGMAXHEIGHT,'
      '  DGMAXLENGTH = :DGMAXLENGTH,'
      '  DGNSTDV = :DGNSTDV,'
      '  DGNSTDW = :DGNSTDW,'
      '  DGPRECOST = :DGPRECOST,'
      '  DGSMALLPIECECNT = :DGSMALLPIECECNT,'
      '  DGSTDV = :DGSTDV,'
      '  DGSTDW = :DGSTDW,'
      '  DGTRANCPIECECNT = :DGTRANCPIECECNT,'
      '  DGWOPACKNSTDV = :DGWOPACKNSTDV,'
      '  DGWOPACKSTDV = :DGWOPACKSTDV,'
      '  DGINFO = :DGINFO'
      'where'
      '  DEID = :OLD_DEID')
    InsertSQL.Strings = (
      'insert into DEGOODS'
      
        '  (DEID, DGCLPACKSTATUS, DGFORPACKNSTDV, DGFORPACKSTDV, DGGOODSD' +
        'ESCR, DGGOODSDESCRTEXT, '
      
        '   DGIND1, DGIND2, DGIND3, DGIND4, DGIND5, DGISPALLET, DGMAXHEIG' +
        'HT, DGMAXLENGTH, '
      
        '   DGNSTDV, DGNSTDW, DGPRECOST, DGSMALLPIECECNT, DGSTDV, DGSTDW,' +
        ' DGTRANCPIECECNT, '
      '   DGWOPACKNSTDV, DGWOPACKSTDV, DGINFO)'
      'values'
      
        '  (:DEID, :DGCLPACKSTATUS, :DGFORPACKNSTDV, :DGFORPACKSTDV, :DGG' +
        'OODSDESCR, '
      
        '   :DGGOODSDESCRTEXT, :DGIND1, :DGIND2, :DGIND3, :DGIND4, :DGIND' +
        '5, :DGISPALLET, '
      
        '   :DGMAXHEIGHT, :DGMAXLENGTH, :DGNSTDV, :DGNSTDW, :DGPRECOST, :' +
        'DGSMALLPIECECNT, '
      
        '   :DGSTDV, :DGSTDW, :DGTRANCPIECECNT, :DGWOPACKNSTDV, :DGWOPACK' +
        'STDV, :DGINFO)')
    Left = 368
    Top = 40
  end
  object dsDeGoodsDescr: TDataSource
    DataSet = qDeGoodsDescr
    Left = 8
    Top = 600
  end
  object qDeGoodsDescr: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qDeGoodsAfterInsert
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT D.*, S.SDNAME'
      '  FROM DEGOODSDESCR D'
      '  LEFT OUTER JOIN SYS_DIC S ON (D.DDTYPE = S.SDID)'
      ' WHERE D.DEID = :DEID   ')
    UpdateObject = quDeGoodsDescr
    GeneratorField.Field = 'DDID'
    GeneratorField.Generator = 'GDEGOODSDESCR'
    Left = 32
    Top = 600
    ParamData = <
      item
        DataType = ftInteger
        Name = 'DEID'
        ParamType = ptUnknown
      end>
    object qDeGoodsDescrDDID: TIntegerField
      FieldName = 'DDID'
      Origin = '"DEGOODSDESCR"."DDID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qDeGoodsDescrDEID: TIntegerField
      FieldName = 'DEID'
      Origin = '"DEGOODSDESCR"."DEID"'
    end
    object qDeGoodsDescrDDTYPE: TIntegerField
      FieldName = 'DDTYPE'
      Origin = '"DEGOODSDESCR"."DDTYPE"'
    end
    object qDeGoodsDescrSDNAME: TIBStringField
      DisplayLabel = #1057#1074#1086#1081#1089#1090#1074#1086' '#1075#1088#1091#1079#1072
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
  end
  object quDeGoodsDescr: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DDID,'
      '  DEID,'
      '  DDTYPE,'
      '  SDNAME'
      'from DEGOODSDESCR '
      'where'
      '  DDID = :DDID')
    ModifySQL.Strings = (
      'update DEGOODSDESCR'
      'set'
      '  DDID = :DDID,'
      '  DDTYPE = :DDTYPE,'
      '  DEID = :DEID'
      'where'
      '  DDID = :OLD_DDID')
    InsertSQL.Strings = (
      'insert into DEGOODSDESCR'
      '  (DDID, DDTYPE, DEID)'
      'values'
      '  (:DDID, :DDTYPE, :DEID)')
    DeleteSQL.Strings = (
      'delete from DEGOODSDESCR'
      'where'
      '  DDID = :OLD_DDID')
    Left = 56
    Top = 600
  end
  object qDeGoodsDescrIns: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'SELECT S.SDID, S.SDNAME, 0 ISSELECT'
      '  FROM SYS_DIC S'
      ' WHERE S.SDPARID = :SDPARID'
      ' ORDER BY S.SDNAME')
    UpdateObject = quDeGoodsDescrIns
    Left = 264
    Top = 600
    ParamData = <
      item
        DataType = ftInteger
        Name = 'SDPARID'
        ParamType = ptUnknown
      end>
  end
  object quDeGoodsDescrIns: TIBUpdateSQL
    ModifySQL.Strings = (
      'null;')
    InsertSQL.Strings = (
      'null;')
    DeleteSQL.Strings = (
      'null;')
    Left = 288
    Top = 600
  end
  object dsDeGoodsTrans: TDataSource
    DataSet = qDeGoodsTrans
    Left = 320
    Top = 600
  end
  object qDeGoodsTrans: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qDeGoodsAfterInsert
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT D.*, S.SDNAME'
      '  FROM DEGOODSTRANS D'
      '  LEFT OUTER JOIN SYS_DIC S ON (D.DTTYPE = S.SDID)'
      ' WHERE D.DEID = :DEID   ')
    UpdateObject = quDeGoodsTrans
    GeneratorField.Field = 'DTID'
    GeneratorField.Generator = 'GDEGOODSTRANS'
    Left = 344
    Top = 600
    ParamData = <
      item
        DataType = ftInteger
        Name = 'DEID'
        ParamType = ptUnknown
        Size = 4
      end>
    object qDeGoodsTransDTID: TIntegerField
      FieldName = 'DTID'
      Origin = '"DEGOODSTRANS"."DTID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qDeGoodsTransDEID: TIntegerField
      FieldName = 'DEID'
      Origin = '"DEGOODSTRANS"."DEID"'
    end
    object qDeGoodsTransDTTYPE: TIntegerField
      FieldName = 'DTTYPE'
      Origin = '"DEGOODSTRANS"."DTTYPE"'
    end
    object qDeGoodsTransSDNAME: TIBStringField
      DisplayLabel = #1058#1088#1077#1073#1086#1074#1072#1085#1080#1077' '#1082' '#1087#1086#1075#1088#1091#1079#1082#1077
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
  end
  object quDeGoodsTrans: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DTID,'
      '  DEID,'
      '  DTTYPE,'
      '  SDNAME'
      'from DEGOODSTRANS '
      'where'
      '  DTID = :DTID')
    ModifySQL.Strings = (
      'update DEGOODSTRANS'
      'set'
      '  DEID = :DEID,'
      '  DTID = :DTID,'
      '  DTTYPE = :DTTYPE'
      'where'
      '  DTID = :OLD_DTID')
    InsertSQL.Strings = (
      'insert into DEGOODSTRANS'
      '  (DEID, DTID, DTTYPE)'
      'values'
      '  (:DEID, :DTID, :DTTYPE)')
    DeleteSQL.Strings = (
      'delete from DEGOODSTRANS'
      'where'
      '  DTID = :OLD_DTID')
    Left = 368
    Top = 600
  end
  object qPackTypes: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT S.SDID, S.SDNAME'
      '  FROM SYS_DIC S'
      ' WHERE S.SDPARID = 13'
      ' ORDER BY S.SDID')
    Left = 448
    Top = 8
  end
  object dsPackTypes: TDataSource
    DataSet = qPackTypes
    Left = 424
    Top = 8
  end
  object dsDePack: TDataSource
    DataSet = qDePack
    Left = 416
    Top = 40
  end
  object qDePack: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qDeGoodsAfterInsert
    BeforePost = qDealsBeforePost
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT *'
      '  FROM DEPACK D'
      ' WHERE D.DEID = :DEID   ')
    UpdateObject = quDePack
    Left = 440
    Top = 40
    ParamData = <
      item
        DataType = ftInteger
        Name = 'DEID'
        ParamType = ptUnknown
      end>
    object qDePackDEID: TIntegerField
      FieldName = 'DEID'
      Origin = '"DEPACK"."DEID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qDePackDPTYPE: TIntegerField
      FieldName = 'DPTYPE'
      Origin = '"DEPACK"."DPTYPE"'
    end
    object qDePackDPPACKSTDV: TIBBCDField
      FieldName = 'DPPACKSTDV'
      Origin = '"DEPACK"."DPPACKSTDV"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qDePackDPPACKNSTDV: TIBBCDField
      FieldName = 'DPPACKNSTDV'
      Origin = '"DEPACK"."DPPACKNSTDV"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qDePackDPSOFTPACKSTDV: TIBBCDField
      FieldName = 'DPSOFTPACKSTDV'
      Origin = '"DEPACK"."DPSOFTPACKSTDV"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qDePackDPSOFTPACKNSTDV: TIBBCDField
      FieldName = 'DPSOFTPACKNSTDV'
      Origin = '"DEPACK"."DPSOFTPACKNSTDV"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
  end
  object quDePack: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DEID,'
      '  DPTYPE,'
      '  DPPACKSTDV,'
      '  DPPACKNSTDV,'
      '  DPSOFTPACKSTDV,'
      '  DPSOFTPACKNSTDV'
      'from DEPACK '
      'where'
      '  DEID = :DEID')
    ModifySQL.Strings = (
      'update DEPACK'
      'set'
      '  DEID = :DEID,'
      '  DPPACKNSTDV = :DPPACKNSTDV,'
      '  DPPACKSTDV = :DPPACKSTDV,'
      '  DPSOFTPACKNSTDV = :DPSOFTPACKNSTDV,'
      '  DPSOFTPACKSTDV = :DPSOFTPACKSTDV,'
      '  DPTYPE = :DPTYPE'
      'where'
      '  DEID = :OLD_DEID')
    InsertSQL.Strings = (
      'insert into DEPACK'
      '  (DEID, DPPACKNSTDV, DPPACKSTDV, DPSOFTPACKNSTDV,'
      ' DPSOFTPACKSTDV, DPTYPE)'
      'values'
      '  (:DEID, :DPPACKNSTDV, :DPPACKSTDV, :DPSOFTPACKNSTDV,'
      ' :DPSOFTPACKSTDV, :DPTYPE)')
    Left = 464
    Top = 40
  end
  object qPackStatus: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT S.SDID, S.SDNAME'
      '  FROM SYS_DIC S'
      ' WHERE S.SDPARID = 14'
      ' ORDER BY S.SDID')
    Left = 576
  end
  object dsPackStatus: TDataSource
    DataSet = qPackStatus
    Left = 552
  end
  object dsDeRepack: TDataSource
    DataSet = qDeRepack
    Left = 400
    Top = 600
  end
  object qDeRepack: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qDeRepackAfterInsert
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT *'
      '  FROM DEREPACK D'
      ' WHERE D.DEID = :DEID   ')
    UpdateObject = quDeRepack
    GeneratorField.Field = 'DRID'
    GeneratorField.Generator = 'GDEREPACK'
    Left = 424
    Top = 600
    ParamData = <
      item
        DataType = ftInteger
        Name = 'DEID'
        ParamType = ptUnknown
        Size = 4
      end>
    object qDeRepackDRID: TIntegerField
      FieldName = 'DRID'
      Origin = '"DEREPACK"."DRID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qDeRepackDEID: TIntegerField
      FieldName = 'DEID'
      Origin = '"DEREPACK"."DEID"'
    end
    object qDeRepackDRTYPE: TIntegerField
      DisplayLabel = #1058#1080#1087
      FieldName = 'DRTYPE'
      Origin = '"DEREPACK"."DRTYPE"'
    end
    object qDeRepackDRCNT: TIntegerField
      DisplayLabel = #1050#1086#1083'-'#1074#1086
      FieldName = 'DRCNT'
      Origin = '"DEREPACK"."DRCNT"'
    end
  end
  object quDeRepack: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DRID,'
      '  DEID,'
      '  DRTYPE,'
      '  DRCNT'
      'from DEREPACK '
      'where'
      '  DRID = :DRID')
    ModifySQL.Strings = (
      'update DEREPACK'
      'set'
      '  DEID = :DEID,'
      '  DRCNT = :DRCNT,'
      '  DRID = :DRID,'
      '  DRTYPE = :DRTYPE'
      'where'
      '  DRID = :OLD_DRID')
    InsertSQL.Strings = (
      'insert into DEREPACK'
      '  (DEID, DRCNT, DRID, DRTYPE)'
      'values'
      '  (:DEID, :DRCNT, :DRID, :DRTYPE)')
    DeleteSQL.Strings = (
      'delete from DEREPACK'
      'where'
      '  DRID = :OLD_DRID')
    Left = 448
    Top = 600
  end
  object dsRepackTypes: TDataSource
    DataSet = qRepackTypes
    Left = 480
    Top = 600
  end
  object qRepackTypes: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT S.SDID, S.SDNAME'
      '  FROM SYS_DIC S'
      ' WHERE S.SDPARID = 15'
      ' ORDER BY S.SDID')
    Left = 504
    Top = 600
  end
  object quDeServices: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DEID,'
      '  SVID,'
      '  DSPAYER'
      'from DESERVICES '
      'where'
      '  DEID = :DEID and'
      '  SVID = :SVID')
    ModifySQL.Strings = (
      'update DESERVICES'
      'set'
      '  DSPAYER = :DSPAYER'
      'where'
      '  DEID = :OLD_DEID and'
      '  SVID = :OLD_SVID')
    InsertSQL.Strings = (
      'insert into DESERVICES'
      '  (DEID, DSPAYER, SVID)'
      'values'
      '  (:DEID, :DSPAYER, :SVID)')
    DeleteSQL.Strings = (
      'delete from DESERVICES'
      'where'
      '  DEID = :OLD_DEID and'
      '  SVID = :OLD_SVID')
    Left = 224
    Top = 40
  end
  object qDeServices: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qDeGoodsAfterInsert
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT *'
      '  FROM DESERVICES D'
      ' WHERE D.DEID = :DEID   ')
    UpdateObject = quDeServices
    Left = 200
    Top = 40
    ParamData = <
      item
        DataType = ftInteger
        Name = 'DEID'
        ParamType = ptUnknown
      end>
    object qDeServicesDEID: TIntegerField
      FieldName = 'DEID'
      Origin = '"DESERVICES"."DEID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qDeServicesSVID: TIntegerField
      FieldName = 'SVID'
      Origin = '"DESERVICES"."SVID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qDeServicesDSPAYER: TIntegerField
      FieldName = 'DSPAYER'
      Origin = '"DESERVICES"."DSPAYER"'
    end
  end
  object dsInvS: TDataSource
    DataSet = qInvS
    Left = 736
    Top = 8
  end
  object qInvS: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qDeGoodsAfterInsert
    BeforeOpen = qInvSBeforeOpen
    BeforePost = qDealsBeforePost
    CachedUpdates = True
    SQL.Strings = (
      'SELECT *'
      '  FROM DEINVOICE D'
      ' WHERE D.DEID = :DEID'
      '   AND D.CLID = :DECLID_S   ')
    UpdateObject = quInvS
    GeneratorField.Field = 'DIID'
    GeneratorField.Generator = 'GDEINVOICE'
    GeneratorField.ApplyEvent = gamOnPost
    Left = 760
    Top = 8
    ParamData = <
      item
        DataType = ftInteger
        Name = 'DEID'
        ParamType = ptUnknown
      end
      item
        DataType = ftInteger
        Name = 'DECLID_S'
        ParamType = ptUnknown
      end>
    object qInvSDIID: TIntegerField
      FieldName = 'DIID'
      Origin = '"DEINVOICE"."DIID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qInvSOFID: TIntegerField
      FieldName = 'OFID'
      Origin = '"DEINVOICE"."OFID"'
    end
    object qInvSOBID: TIntegerField
      FieldName = 'OBID'
      Origin = '"DEINVOICE"."OBID"'
    end
    object qInvSDEID: TIntegerField
      FieldName = 'DEID'
      Origin = '"DEINVOICE"."DEID"'
    end
    object qInvSCLID: TIntegerField
      FieldName = 'CLID'
      Origin = '"DEINVOICE"."CLID"'
    end
    object qInvSDIAMOUNT: TIBBCDField
      FieldName = 'DIAMOUNT'
      Origin = '"DEINVOICE"."DIAMOUNT"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInvSDIPAYTYPE: TIntegerField
      FieldName = 'DIPAYTYPE'
      Origin = '"DEINVOICE"."DIPAYTYPE"'
    end
    object qInvSDINDS: TIBBCDField
      FieldName = 'DINDS'
      Origin = '"DEINVOICE"."DINDS"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInvSDIBALANCE: TIBBCDField
      FieldName = 'DIBALANCE'
      Origin = '"DEINVOICE"."DIBALANCE"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInvSDIPERMITS: TIntegerField
      FieldName = 'DIPERMITS'
      Origin = '"DEINVOICE"."DIPERMITS"'
    end
  end
  object quInvS: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DIID,'
      '  OFID,'
      '  OBID,'
      '  DEID,'
      '  CLID,'
      '  DIAMOUNT,'
      '  DIPAYTYPE,'
      '  DINDS,'
      '  DIBALANCE,'
      '  DIPERMITS'
      'from DEINVOICE '
      'where'
      '  DIID = :DIID')
    ModifySQL.Strings = (
      'update DEINVOICE'
      'set'
      '  CLID = :CLID,'
      '  DEID = :DEID,'
      '  DIAMOUNT = :DIAMOUNT,'
      '  DIID = :DIID,'
      '  DINDS = :DINDS,'
      '  DIPAYTYPE = :DIPAYTYPE,'
      '  DIPERMITS = :DIPERMITS,'
      '  OBID = :OBID,'
      '  OFID = :OFID'
      'where'
      '  DIID = :OLD_DIID')
    InsertSQL.Strings = (
      'insert into DEINVOICE'
      '  (CLID, DEID, DIAMOUNT, DIID, DINDS, DIPAYTYPE, DIPERMITS, '
      '   OBID, OFID)'
      'values'
      
        '  (:CLID, :DEID, :DIAMOUNT, :DIID, :DINDS, :DIPAYTYPE, :DIPERMIT' +
        'S, '
      '   :OBID, :OFID)')
    DeleteSQL.Strings = (
      'delete from DEINVOICE'
      'where'
      '  DIID = :OLD_DIID')
    Left = 784
    Top = 8
  end
  object dsBills_S: TDataSource
    DataSet = qBills_S
    Left = 824
    Top = 8
  end
  object qBills_S: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT B.OBID, B.OBNAME'
      '  FROM OFFBILLS B'
      'ORDER BY B.OBACTIVE DESC, B.OBNAME')
    Left = 848
    Top = 8
  end
  object dsPermits: TDataSource
    DataSet = qPermits
    Left = 824
    Top = 40
  end
  object qPermits: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT S.SDID, S.SDNAME'
      '  FROM SYS_DIC S'
      ' WHERE S.SDPARID = 18'
      ' ORDER BY S.SDNAME')
    Left = 848
    Top = 40
  end
  object dsInvR: TDataSource
    DataSet = qInvR
    Left = 736
    Top = 40
  end
  object qInvR: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qDeGoodsAfterInsert
    BeforeOpen = qInvRBeforeOpen
    BeforePost = qDealsBeforePost
    CachedUpdates = True
    SQL.Strings = (
      'SELECT *'
      '  FROM DEINVOICE D'
      ' WHERE D.DEID = :DEID'
      '   AND D.CLID = :DECLID_R')
    UpdateObject = quInvR
    GeneratorField.Field = 'DIID'
    GeneratorField.Generator = 'GDEINVOICE'
    GeneratorField.ApplyEvent = gamOnPost
    Left = 760
    Top = 40
    ParamData = <
      item
        DataType = ftInteger
        Name = 'DEID'
        ParamType = ptUnknown
      end
      item
        DataType = ftInteger
        Name = 'DECLID_R'
        ParamType = ptUnknown
      end>
    object qInvRDIID: TIntegerField
      FieldName = 'DIID'
      Origin = '"DEINVOICE"."DIID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qInvROFID: TIntegerField
      FieldName = 'OFID'
      Origin = '"DEINVOICE"."OFID"'
    end
    object qInvROBID: TIntegerField
      FieldName = 'OBID'
      Origin = '"DEINVOICE"."OBID"'
    end
    object qInvRDEID: TIntegerField
      FieldName = 'DEID'
      Origin = '"DEINVOICE"."DEID"'
    end
    object qInvRCLID: TIntegerField
      FieldName = 'CLID'
      Origin = '"DEINVOICE"."CLID"'
    end
    object qInvRDIAMOUNT: TIBBCDField
      FieldName = 'DIAMOUNT'
      Origin = '"DEINVOICE"."DIAMOUNT"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInvRDIPAYTYPE: TIntegerField
      FieldName = 'DIPAYTYPE'
      Origin = '"DEINVOICE"."DIPAYTYPE"'
    end
    object qInvRDINDS: TIBBCDField
      FieldName = 'DINDS'
      Origin = '"DEINVOICE"."DINDS"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInvRDIBALANCE: TIBBCDField
      FieldName = 'DIBALANCE'
      Origin = '"DEINVOICE"."DIBALANCE"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInvRDIPERMITS: TIntegerField
      FieldName = 'DIPERMITS'
      Origin = '"DEINVOICE"."DIPERMITS"'
    end
  end
  object quInvR: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DIID,'
      '  OFID,'
      '  OBID,'
      '  DEID,'
      '  CLID,'
      '  DIAMOUNT,'
      '  DIPAYTYPE,'
      '  DINDS,'
      '  DIBALANCE,'
      '  DIPERMITS'
      'from DEINVOICE '
      'where'
      '  DIID = :DIID')
    ModifySQL.Strings = (
      'update DEINVOICE'
      'set'
      '  CLID = :CLID,'
      '  DEID = :DEID,'
      '  DIAMOUNT = :DIAMOUNT,'
      '  DIID = :DIID,'
      '  DINDS = :DINDS,'
      '  DIPAYTYPE = :DIPAYTYPE,'
      '  DIPERMITS = :DIPERMITS,'
      '  OBID = :OBID,'
      '  OFID = :OFID'
      'where'
      '  DIID = :OLD_DIID')
    InsertSQL.Strings = (
      'insert into DEINVOICE'
      '  (CLID, DEID, DIAMOUNT, DIID, DINDS, DIPAYTYPE, DIPERMITS, '
      '   OBID, OFID)'
      'values'
      
        '  (:CLID, :DEID, :DIAMOUNT, :DIID, :DINDS, :DIPAYTYPE, :DIPERMIT' +
        'S, '
      '   :OBID, :OFID)')
    DeleteSQL.Strings = (
      'delete from DEINVOICE'
      'where'
      '  DIID = :OLD_DIID')
    Left = 784
    Top = 40
  end
  object dsInv3: TDataSource
    DataSet = qInv3
    Left = 736
    Top = 72
  end
  object qInv3: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qDeGoodsAfterInsert
    BeforeOpen = qInv3BeforeOpen
    BeforePost = qDealsBeforePost
    CachedUpdates = True
    SQL.Strings = (
      'SELECT *'
      '  FROM DEINVOICE D'
      ' WHERE D.DEID = :DEID'
      '   AND D.CLID = :DECLID_3')
    UpdateObject = quInv3
    GeneratorField.Field = 'DIID'
    GeneratorField.Generator = 'GDEINVOICE'
    GeneratorField.ApplyEvent = gamOnPost
    Left = 760
    Top = 72
    ParamData = <
      item
        DataType = ftInteger
        Name = 'DEID'
        ParamType = ptUnknown
      end
      item
        DataType = ftInteger
        Name = 'DECLID_3'
        ParamType = ptUnknown
      end>
    object qInv3DIID: TIntegerField
      FieldName = 'DIID'
      Origin = '"DEINVOICE"."DIID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qInv3OFID: TIntegerField
      FieldName = 'OFID'
      Origin = '"DEINVOICE"."OFID"'
    end
    object qInv3OBID: TIntegerField
      FieldName = 'OBID'
      Origin = '"DEINVOICE"."OBID"'
    end
    object qInv3DEID: TIntegerField
      FieldName = 'DEID'
      Origin = '"DEINVOICE"."DEID"'
    end
    object qInv3CLID: TIntegerField
      FieldName = 'CLID'
      Origin = '"DEINVOICE"."CLID"'
    end
    object qInv3DIAMOUNT: TIBBCDField
      FieldName = 'DIAMOUNT'
      Origin = '"DEINVOICE"."DIAMOUNT"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInv3DIPAYTYPE: TIntegerField
      FieldName = 'DIPAYTYPE'
      Origin = '"DEINVOICE"."DIPAYTYPE"'
    end
    object qInv3DINDS: TIBBCDField
      FieldName = 'DINDS'
      Origin = '"DEINVOICE"."DINDS"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInv3DIBALANCE: TIBBCDField
      FieldName = 'DIBALANCE'
      Origin = '"DEINVOICE"."DIBALANCE"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInv3DIPERMITS: TIntegerField
      FieldName = 'DIPERMITS'
      Origin = '"DEINVOICE"."DIPERMITS"'
    end
  end
  object quInv3: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DIID,'
      '  OFID,'
      '  OBID,'
      '  DEID,'
      '  CLID,'
      '  DIAMOUNT,'
      '  DIPAYTYPE,'
      '  DINDS,'
      '  DIBALANCE,'
      '  DIPERMITS'
      'from DEINVOICE '
      'where'
      '  DIID = :DIID')
    ModifySQL.Strings = (
      'update DEINVOICE'
      'set'
      '  CLID = :CLID,'
      '  DEID = :DEID,'
      '  DIAMOUNT = :DIAMOUNT,'
      '  DIID = :DIID,'
      '  DINDS = :DINDS,'
      '  DIPAYTYPE = :DIPAYTYPE,'
      '  DIPERMITS = :DIPERMITS,'
      '  OBID = :OBID,'
      '  OFID = :OFID'
      'where'
      '  DIID = :OLD_DIID')
    InsertSQL.Strings = (
      'insert into DEINVOICE'
      '  (CLID, DEID, DIAMOUNT, DIID, DINDS, DIPAYTYPE, DIPERMITS, '
      '   OBID, OFID)'
      'values'
      
        '  (:CLID, :DEID, :DIAMOUNT, :DIID, :DINDS, :DIPAYTYPE, :DIPERMIT' +
        'S, '
      '   :OBID, :OFID)')
    DeleteSQL.Strings = (
      'delete from DEINVOICE'
      'where'
      '  DIID = :OLD_DIID')
    Left = 784
    Top = 72
  end
  object dsInvItems_S: TDataSource
    DataSet = qInvItems_S
    Left = 816
    Top = 72
  end
  object qInvItems_S: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    DataSource = dsInvS
    SQL.Strings = (
      'SELECT D.*, S.SVNAME'
      '  FROM DEINVITEMS D, SERVICES S'
      ' WHERE D.DIID = :DIID'
      '   AND D.SVID = S.SVID'
      ' ORDER BY D.SVID')
    UpdateObject = quInvItems_S
    Left = 840
    Top = 72
    ParamData = <
      item
        DataType = ftInteger
        Name = 'DIID'
        ParamType = ptUnknown
        Size = 4
      end>
    object qInvItems_SDVID: TIntegerField
      FieldName = 'DVID'
      Origin = '"DEINVITEMS"."DVID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qInvItems_SDIID: TIntegerField
      FieldName = 'DIID'
      Origin = '"DEINVITEMS"."DIID"'
    end
    object qInvItems_SSVID: TIntegerField
      FieldName = 'SVID'
      Origin = '"DEINVITEMS"."SVID"'
    end
    object qInvItems_SDVPRICE: TIBBCDField
      DisplayLabel = #1062#1077#1085#1072
      FieldName = 'DVPRICE'
      Origin = '"DEINVITEMS"."DVPRICE"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInvItems_SDVQTTY: TIntegerField
      DisplayLabel = #1050#1086#1083'-'#1074#1086
      FieldName = 'DVQTTY'
      Origin = '"DEINVITEMS"."DVQTTY"'
    end
    object qInvItems_SDVAMOUNT: TIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072
      FieldName = 'DVAMOUNT'
      Origin = '"DEINVITEMS"."DVAMOUNT"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInvItems_SDVDISCOUNT: TIBBCDField
      DisplayLabel = #1057#1082#1080#1076#1082#1072
      FieldName = 'DVDISCOUNT'
      Origin = '"DEINVITEMS"."DVDISCOUNT"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInvItems_SDVMARKUP: TIBBCDField
      DisplayLabel = #1053#1072#1094#1077#1085#1082#1072
      FieldName = 'DVMARKUP'
      Origin = '"DEINVITEMS"."DVMARKUP"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInvItems_SDVTOTAL: TIBBCDField
      DisplayLabel = #1048#1090#1086#1075#1086
      FieldName = 'DVTOTAL'
      Origin = '"DEINVITEMS"."DVTOTAL"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInvItems_SDVHAND: TIBBCDField
      DisplayLabel = #1056#1091#1082#1072#1084#1080
      FieldName = 'DVHAND'
      Origin = '"DEINVITEMS"."DVHAND"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInvItems_SSVNAME: TIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      FieldName = 'SVNAME'
      Origin = '"SERVICES"."SVNAME"'
      Size = 40
    end
    object qInvItems_SDVNDS: TIBBCDField
      DisplayLabel = #1053#1044#1057
      FieldName = 'DVNDS'
      Origin = '"DEINVITEMS"."DVNDS"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
  end
  object quInvItems_S: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DVID,'
      '  DIID,'
      '  SVID,'
      '  DVPRICE,'
      '  DVQTTY,'
      '  DVAMOUNT,'
      '  DVDISCOUNT,'
      '  DVMARKUP,'
      '  DVTOTAL,'
      '  DVHAND,'
      '  DVNDS,'
      '  SVNAME'
      'from DEINVITEMS '
      'where'
      '  DIID = :DIID and'
      '  DVID = :DVID')
    ModifySQL.Strings = (
      'update DEINVITEMS'
      'set'
      '  DIID = :DIID,'
      '  DVAMOUNT = :DVAMOUNT,'
      '  DVDISCOUNT = :DVDISCOUNT,'
      '  DVHAND = :DVHAND,'
      '  DVID = :DVID,'
      '  DVMARKUP = :DVMARKUP,'
      '  DVNDS = :DVNDS,'
      '  DVPRICE = :DVPRICE,'
      '  DVQTTY = :DVQTTY,'
      '  DVTOTAL = :DVTOTAL,'
      '  SVID = :SVID'
      'where'
      '  DIID = :OLD_DIID and'
      '  DVID = :OLD_DVID')
    InsertSQL.Strings = (
      'insert into DEINVITEMS'
      
        '  (DIID, DVAMOUNT, DVDISCOUNT, DVHAND, DVID, DVMARKUP, DVNDS, DV' +
        'PRICE, '
      '   DVQTTY, DVTOTAL, SVID)'
      'values'
      
        '  (:DIID, :DVAMOUNT, :DVDISCOUNT, :DVHAND, :DVID, :DVMARKUP, :DV' +
        'NDS, :DVPRICE, '
      '   :DVQTTY, :DVTOTAL, :SVID)')
    DeleteSQL.Strings = (
      'delete from DEINVITEMS'
      'where'
      '  DIID = :OLD_DIID and'
      '  DVID = :OLD_DVID')
    Left = 864
    Top = 72
  end
  object dsInvItems_R: TDataSource
    DataSet = qInvItems_R
    Left = 736
    Top = 104
  end
  object qInvItems_R: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    DataSource = dsInvR
    SQL.Strings = (
      'SELECT D.*, S.SVNAME'
      '  FROM DEINVITEMS D, SERVICES S'
      ' WHERE D.DIID = :DIID'
      '   AND D.SVID = S.SVID'
      ' ORDER BY D.SVID')
    UpdateObject = quInvItems_R
    Left = 760
    Top = 104
    ParamData = <
      item
        DataType = ftInteger
        Name = 'DIID'
        ParamType = ptUnknown
      end>
    object qInvItems_RDVID: TIntegerField
      FieldName = 'DVID'
      Origin = '"DEINVITEMS"."DVID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qInvItems_RDIID: TIntegerField
      FieldName = 'DIID'
      Origin = '"DEINVITEMS"."DIID"'
    end
    object qInvItems_RSVID: TIntegerField
      FieldName = 'SVID'
      Origin = '"DEINVITEMS"."SVID"'
    end
    object qInvItems_RDVPRICE: TIBBCDField
      DisplayLabel = #1062#1077#1085#1072
      FieldName = 'DVPRICE'
      Origin = '"DEINVITEMS"."DVPRICE"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInvItems_RDVQTTY: TIntegerField
      DisplayLabel = #1050#1086#1083'-'#1074#1086
      FieldName = 'DVQTTY'
      Origin = '"DEINVITEMS"."DVQTTY"'
    end
    object qInvItems_RDVAMOUNT: TIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072
      FieldName = 'DVAMOUNT'
      Origin = '"DEINVITEMS"."DVAMOUNT"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInvItems_RDVDISCOUNT: TIBBCDField
      DisplayLabel = #1057#1082#1080#1076#1082#1072
      FieldName = 'DVDISCOUNT'
      Origin = '"DEINVITEMS"."DVDISCOUNT"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInvItems_RDVMARKUP: TIBBCDField
      DisplayLabel = #1053#1072#1094#1077#1085#1082#1072
      FieldName = 'DVMARKUP'
      Origin = '"DEINVITEMS"."DVMARKUP"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInvItems_RDVTOTAL: TIBBCDField
      DisplayLabel = #1048#1090#1086#1075#1086
      FieldName = 'DVTOTAL'
      Origin = '"DEINVITEMS"."DVTOTAL"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInvItems_RDVHAND: TIBBCDField
      DisplayLabel = #1056#1091#1082#1072#1084#1080
      FieldName = 'DVHAND'
      Origin = '"DEINVITEMS"."DVHAND"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInvItems_RDVNDS: TIBBCDField
      DisplayLabel = #1053#1044#1057
      FieldName = 'DVNDS'
      Origin = '"DEINVITEMS"."DVNDS"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInvItems_RSVNAME: TIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      FieldName = 'SVNAME'
      Origin = '"SERVICES"."SVNAME"'
      Size = 40
    end
  end
  object quInvItems_R: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DVID,'
      '  DIID,'
      '  SVID,'
      '  DVPRICE,'
      '  DVQTTY,'
      '  DVAMOUNT,'
      '  DVDISCOUNT,'
      '  DVMARKUP,'
      '  DVTOTAL,'
      '  DVHAND,'
      '  DVNDS,'
      '  SVNAME'
      'from DEINVITEMS '
      'where'
      '  DIID = :DIID and'
      '  DVID = :DVID')
    ModifySQL.Strings = (
      'update DEINVITEMS'
      'set'
      '  DIID = :DIID,'
      '  DVAMOUNT = :DVAMOUNT,'
      '  DVDISCOUNT = :DVDISCOUNT,'
      '  DVHAND = :DVHAND,'
      '  DVID = :DVID,'
      '  DVMARKUP = :DVMARKUP,'
      '  DVNDS = :DVNDS,'
      '  DVPRICE = :DVPRICE,'
      '  DVQTTY = :DVQTTY,'
      '  DVTOTAL = :DVTOTAL,'
      '  SVID = :SVID'
      'where'
      '  DIID = :OLD_DIID and'
      '  DVID = :OLD_DVID')
    InsertSQL.Strings = (
      'insert into DEINVITEMS'
      
        '  (DIID, DVAMOUNT, DVDISCOUNT, DVHAND, DVID, DVMARKUP, DVNDS, DV' +
        'PRICE, '
      '   DVQTTY, DVTOTAL, SVID)'
      'values'
      
        '  (:DIID, :DVAMOUNT, :DVDISCOUNT, :DVHAND, :DVID, :DVMARKUP, :DV' +
        'NDS, :DVPRICE, '
      '   :DVQTTY, :DVTOTAL, :SVID)')
    DeleteSQL.Strings = (
      'delete from DEINVITEMS'
      'where'
      '  DIID = :OLD_DIID and'
      '  DVID = :OLD_DVID')
    Left = 784
    Top = 104
  end
  object dsInvItems_3: TDataSource
    DataSet = qInvItems_3
    Left = 816
    Top = 104
  end
  object qInvItems_3: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    DataSource = dsInv3
    SQL.Strings = (
      'SELECT D.*, S.SVNAME'
      '  FROM DEINVITEMS D, SERVICES S'
      ' WHERE D.DIID = :DIID'
      '   AND D.SVID = S.SVID'
      ' ORDER BY D.SVID')
    UpdateObject = quInvItems_3
    Left = 840
    Top = 104
    ParamData = <
      item
        DataType = ftInteger
        Name = 'DIID'
        ParamType = ptUnknown
      end>
    object qInvItems_3DVID: TIntegerField
      FieldName = 'DVID'
      Origin = '"DEINVITEMS"."DVID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qInvItems_3DIID: TIntegerField
      FieldName = 'DIID'
      Origin = '"DEINVITEMS"."DIID"'
    end
    object qInvItems_3SVID: TIntegerField
      FieldName = 'SVID'
      Origin = '"DEINVITEMS"."SVID"'
    end
    object qInvItems_3DVPRICE: TIBBCDField
      DisplayLabel = #1062#1077#1085#1072
      FieldName = 'DVPRICE'
      Origin = '"DEINVITEMS"."DVPRICE"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInvItems_3DVQTTY: TIntegerField
      DisplayLabel = #1050#1086#1083'-'#1074#1086
      FieldName = 'DVQTTY'
      Origin = '"DEINVITEMS"."DVQTTY"'
    end
    object qInvItems_3DVAMOUNT: TIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072
      FieldName = 'DVAMOUNT'
      Origin = '"DEINVITEMS"."DVAMOUNT"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInvItems_3DVDISCOUNT: TIBBCDField
      DisplayLabel = #1057#1082#1080#1076#1082#1072
      FieldName = 'DVDISCOUNT'
      Origin = '"DEINVITEMS"."DVDISCOUNT"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInvItems_3DVMARKUP: TIBBCDField
      DisplayLabel = #1053#1072#1094#1077#1085#1082#1072
      FieldName = 'DVMARKUP'
      Origin = '"DEINVITEMS"."DVMARKUP"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInvItems_3DVTOTAL: TIBBCDField
      DisplayLabel = #1048#1090#1086#1075#1086
      FieldName = 'DVTOTAL'
      Origin = '"DEINVITEMS"."DVTOTAL"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInvItems_3DVHAND: TIBBCDField
      DisplayLabel = #1056#1091#1082#1072#1084#1080
      FieldName = 'DVHAND'
      Origin = '"DEINVITEMS"."DVHAND"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInvItems_3DVNDS: TIBBCDField
      DisplayLabel = #1053#1044#1057
      FieldName = 'DVNDS'
      Origin = '"DEINVITEMS"."DVNDS"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qInvItems_3SVNAME: TIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      FieldName = 'SVNAME'
      Origin = '"SERVICES"."SVNAME"'
      Size = 40
    end
  end
  object quInvItems_3: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DVID,'
      '  DIID,'
      '  SVID,'
      '  DVPRICE,'
      '  DVQTTY,'
      '  DVAMOUNT,'
      '  DVDISCOUNT,'
      '  DVMARKUP,'
      '  DVTOTAL,'
      '  DVHAND,'
      '  DVNDS,'
      '  SVNAME'
      'from DEINVITEMS '
      'where'
      '  DIID = :DIID and'
      '  DVID = :DVID')
    ModifySQL.Strings = (
      'update DEINVITEMS'
      'set'
      '  DIID = :DIID,'
      '  DVAMOUNT = :DVAMOUNT,'
      '  DVDISCOUNT = :DVDISCOUNT,'
      '  DVHAND = :DVHAND,'
      '  DVID = :DVID,'
      '  DVMARKUP = :DVMARKUP,'
      '  DVNDS = :DVNDS,'
      '  DVPRICE = :DVPRICE,'
      '  DVQTTY = :DVQTTY,'
      '  DVTOTAL = :DVTOTAL,'
      '  SVID = :SVID'
      'where'
      '  DIID = :OLD_DIID and'
      '  DVID = :OLD_DVID')
    InsertSQL.Strings = (
      'insert into DEINVITEMS'
      
        '  (DIID, DVAMOUNT, DVDISCOUNT, DVHAND, DVID, DVMARKUP, DVNDS, DV' +
        'PRICE, '
      '   DVQTTY, DVTOTAL, SVID)'
      'values'
      
        '  (:DIID, :DVAMOUNT, :DVDISCOUNT, :DVHAND, :DVID, :DVMARKUP, :DV' +
        'NDS, :DVPRICE, '
      '   :DVQTTY, :DVTOTAL, :SVID)')
    DeleteSQL.Strings = (
      'delete from DEINVITEMS'
      'where'
      '  DIID = :OLD_DIID and'
      '  DVID = :OLD_DVID')
    Left = 864
    Top = 104
  end
  object dsCapture: TDataSource
    DataSet = qCapture
    Left = 792
    Top = 168
  end
  object qCapture: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    ObjectView = True
    AfterInsert = qCaptureAfterInsert
    BeforePost = qDealsBeforePost
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT D.*,'
      '       A.CLADRESS, A.CLCOMMENT, P.CRFIO,'
      
        '       AD.CLADRESS CLADRESS_D, AD.CLCOMMENT CLCOMMENT_D, PD.CRFI' +
        'O CRFIO_D'
      '  FROM DECAPTURES D'
      '  LEFT OUTER JOIN CLADRES A ON (D.CDID = A.CDID)'
      '  LEFT OUTER JOIN CLPERSONS P ON (D.CRID = P.CRID)'
      '  LEFT OUTER JOIN CLADRES AD ON (D.CDIDDOC = AD.CDID)'
      '  LEFT OUTER JOIN CLPERSONS PD ON (D.CRIDDOC = PD.CRID)'
      ' WHERE D.DEID = :DEID')
    UpdateObject = quCapture
    Left = 816
    Top = 168
    ParamData = <
      item
        DataType = ftInteger
        Name = 'DEID'
        ParamType = ptUnknown
      end>
    object qCaptureDEID: TIntegerField
      FieldName = 'DEID'
      Origin = '"DECAPTURES"."DEID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qCaptureDCFIRSTDATE: TDateField
      FieldName = 'DCFIRSTDATE'
      Origin = '"DECAPTURES"."DCFIRSTDATE"'
    end
    object qCaptureDCDATE: TDateField
      FieldName = 'DCDATE'
      Origin = '"DECAPTURES"."DCDATE"'
    end
    object qCaptureDCDATEOK: TDateField
      Alignment = taCenter
      FieldName = 'DCDATEOK'
      Origin = '"DECAPTURES"."DCDATEOK"'
    end
    object qCaptureDCWEIGHT: TIBBCDField
      FieldName = 'DCWEIGHT'
      Origin = '"DECAPTURES"."DCWEIGHT"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qCaptureDCVOLUME: TIBBCDField
      FieldName = 'DCVOLUME'
      Origin = '"DECAPTURES"."DCVOLUME"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qCaptureATID: TIntegerField
      FieldName = 'ATID'
      Origin = '"DECAPTURES"."ATID"'
    end
    object qCaptureCDID: TIntegerField
      FieldName = 'CDID'
      Origin = '"DECAPTURES"."CDID"'
    end
    object qCaptureCRID: TIntegerField
      FieldName = 'CRID'
      Origin = '"DECAPTURES"."CRID"'
    end
    object qCaptureCDIDDOC: TIntegerField
      FieldName = 'CDIDDOC'
      Origin = '"DECAPTURES"."CDIDDOC"'
    end
    object qCaptureCRIDDOC: TIntegerField
      FieldName = 'CRIDDOC'
      Origin = '"DECAPTURES"."CRIDDOC"'
    end
    object qCaptureDCISTOWN: TIntegerField
      FieldName = 'DCISTOWN'
      Origin = '"DECAPTURES"."DCISTOWN"'
    end
    object qCaptureDCINTARE: TIntegerField
      Alignment = taCenter
      FieldName = 'DCINTARE'
      Origin = '"DECAPTURES"."DCINTARE"'
    end
    object qCaptureDCNEEDTIMESTART: TTimeField
      FieldName = 'DCNEEDTIMESTART'
      Origin = '"DECAPTURES"."DCNEEDTIMESTART"'
    end
    object qCaptureDCNEEDTIMEEND: TTimeField
      FieldName = 'DCNEEDTIMEEND'
      Origin = '"DECAPTURES"."DCNEEDTIMEEND"'
    end
    object qCaptureDCDEADTIME: TTimeField
      FieldName = 'DCDEADTIME'
      Origin = '"DECAPTURES"."DCDEADTIME"'
    end
    object qCaptureDCDEADTIMEAGREE: TIntegerField
      FieldName = 'DCDEADTIMEAGREE'
      Origin = '"DECAPTURES"."DCDEADTIMEAGREE"'
    end
    object qCaptureDCISLETTER: TIntegerField
      FieldName = 'DCISLETTER'
      Origin = '"DECAPTURES"."DCISLETTER"'
    end
    object qCaptureDCDATELETTER: TDateField
      FieldName = 'DCDATELETTER'
      Origin = '"DECAPTURES"."DCDATELETTER"'
    end
    object qCaptureDCAGREE: TIntegerField
      FieldName = 'DCAGREE'
      Origin = '"DECAPTURES"."DCAGREE"'
    end
    object qCaptureDCTIMEIN: TTimeField
      FieldName = 'DCTIMEIN'
      Origin = '"DECAPTURES"."DCTIMEIN"'
    end
    object qCaptureDCTIMEOUT: TTimeField
      FieldName = 'DCTIMEOUT'
      Origin = '"DECAPTURES"."DCTIMEOUT"'
    end
    object qCaptureDCCOMMENT: TIBStringField
      FieldName = 'DCCOMMENT'
      Origin = '"DECAPTURES"."DCCOMMENT"'
      Size = 255
    end
    object qCaptureCLADRESS: TIBStringField
      FieldName = 'CLADRESS'
      Origin = '"CLADRES"."CLADRESS"'
      Size = 255
    end
    object qCaptureCLCOMMENT: TIBStringField
      FieldName = 'CLCOMMENT'
      Origin = '"CLADRES"."CLCOMMENT"'
      Size = 255
    end
    object qCaptureCRFIO: TIBStringField
      FieldName = 'CRFIO'
      Origin = '"CLPERSONS"."CRFIO"'
      Size = 255
    end
    object qCaptureCLADRESS_D: TIBStringField
      FieldName = 'CLADRESS_D'
      Origin = '"CLADRES"."CLADRESS"'
      Size = 255
    end
    object qCaptureCLCOMMENT_D: TIBStringField
      FieldName = 'CLCOMMENT_D'
      Origin = '"CLADRES"."CLCOMMENT"'
      Size = 255
    end
    object qCaptureCRFIO_D: TIBStringField
      FieldName = 'CRFIO_D'
      Origin = '"CLPERSONS"."CRFIO"'
      Size = 255
    end
  end
  object quCapture: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DEID,'
      '  DCFIRSTDATE,'
      '  DCDATE,'
      '  DCDATEOK,'
      '  DCWEIGHT,'
      '  DCVOLUME,'
      '  ATID,'
      '  CDID,'
      '  CRID,'
      '  CDIDDOC,'
      '  CRIDDOC,'
      '  DCISTOWN,'
      '  DCINTARE,'
      '  DCNEEDTIMESTART,'
      '  DCNEEDTIMEEND,'
      '  DCDEADTIME,'
      '  DCDEADTIMEAGREE,'
      '  DCISLETTER,'
      '  DCDATELETTER,'
      '  DCAGREE,'
      '  DCTIMEIN,'
      '  DCTIMEOUT,'
      '  DCCOMMENT,'
      '  CLADRESS,'
      '  CLCOMMENT,'
      '  CRFIO,'
      '  CLADRESS_D,'
      '  CLCOMMENT_D,'
      '  CRFIO_D'
      'from DECAPTURES '
      'where'
      '  DEID = :DEID')
    ModifySQL.Strings = (
      'update DECAPTURES'
      'set'
      '  ATID = :ATID,'
      '  CDID = :CDID,'
      '  CDIDDOC = :CDIDDOC,'
      '  CRID = :CRID,'
      '  CRIDDOC = :CRIDDOC,'
      '  DCAGREE = :DCAGREE,'
      '  DCCOMMENT = :DCCOMMENT,'
      '  DCDATE = :DCDATE,'
      '  DCDATELETTER = :DCDATELETTER,'
      '  DCDATEOK = :DCDATEOK,'
      '  DCDEADTIME = :DCDEADTIME,'
      '  DCDEADTIMEAGREE = :DCDEADTIMEAGREE,'
      '  DCFIRSTDATE = :DCFIRSTDATE,'
      '  DCINTARE = :DCINTARE,'
      '  DCISLETTER = :DCISLETTER,'
      '  DCISTOWN = :DCISTOWN,'
      '  DCNEEDTIMEEND = :DCNEEDTIMEEND,'
      '  DCNEEDTIMESTART = :DCNEEDTIMESTART,'
      '  DCTIMEIN = :DCTIMEIN,'
      '  DCTIMEOUT = :DCTIMEOUT,'
      '  DCVOLUME = :DCVOLUME,'
      '  DCWEIGHT = :DCWEIGHT,'
      '  DEID = :DEID'
      'where'
      '  DEID = :OLD_DEID')
    InsertSQL.Strings = (
      'insert into DECAPTURES'
      
        '  (ATID, CDID, CDIDDOC, CRID, CRIDDOC, DCAGREE, DCCOMMENT, DCDAT' +
        'E, DCDATELETTER, '
      
        '   DCDATEOK, DCDEADTIME, DCDEADTIMEAGREE, DCFIRSTDATE, DCINTARE,' +
        ' DCISLETTER, '
      
        '   DCISTOWN, DCNEEDTIMEEND, DCNEEDTIMESTART, DCTIMEIN, DCTIMEOUT' +
        ', DCVOLUME, '
      '   DCWEIGHT, DEID)'
      'values'
      
        '  (:ATID, :CDID, :CDIDDOC, :CRID, :CRIDDOC, :DCAGREE, :DCCOMMENT' +
        ', :DCDATE, '
      
        '   :DCDATELETTER, :DCDATEOK, :DCDEADTIME, :DCDEADTIMEAGREE, :DCF' +
        'IRSTDATE, '
      
        '   :DCINTARE, :DCISLETTER, :DCISTOWN, :DCNEEDTIMEEND, :DCNEEDTIM' +
        'ESTART, '
      '   :DCTIMEIN, :DCTIMEOUT, :DCVOLUME, :DCWEIGHT, :DEID)')
    DeleteSQL.Strings = (
      'delete from DECAPTURES'
      'where'
      '  DEID = :OLD_DEID')
    Left = 840
    Top = 168
  end
  object dsAutoTypes: TDataSource
    DataSet = qAutoTypes
    Left = 784
    Top = 136
  end
  object qAutoTypes: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT A.ATID, A.ATDESCRIPTION, A.ATVOLUME'
      '  FROM AUTOTYPES A'
      'UNION'
      
        'SELECT -5 ATID, '#39#1042#1086#1079#1074#1088#1072#1090' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074#39' ATDESCRIPTION, 999.00 ATVOL' +
        'UME'
      '  FROM TABLEONE C'
      ' WHERE C.TOID = 1'
      'UNION'
      'SELECT -1 ATID, '#39#1053#1091#1083#1077#1074#1086#1081' '#1090#1072#1088#1080#1092#39' ATDESCRIPTION, 1000.00 ATVOLUME'
      '  FROM TABLEONE C'
      ' WHERE C.TOID = 1'
      ' ORDER BY 3')
    Left = 808
    Top = 136
  end
  object qIsTown: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT S.SDID, S.SDNAME'
      '  FROM SYS_DIC S'
      ' WHERE S.SDPARID = 4'
      ' ORDER BY S.SDID')
    Left = 760
    Top = 136
  end
  object dsIsTown: TDataSource
    DataSet = qIsTown
    Left = 736
    Top = 136
  end
  object dsDelivery: TDataSource
    DataSet = qDelivery
    Left = 816
    Top = 200
  end
  object qDelivery: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    ObjectView = True
    AfterInsert = qDeliveryAfterInsert
    BeforePost = qDealsBeforePost
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT D.*,'
      '       A.CLADRESS, A.CLCOMMENT, P.CRFIO'
      '  FROM DEDELIVERY D'
      '  LEFT OUTER JOIN CLADRES A ON (D.CDID = A.CDID)'
      '  LEFT OUTER JOIN CLPERSONS P ON (D.CRID = P.CRID)'
      ' WHERE D.DEID = :DEID')
    UpdateObject = quDelivery
    Left = 840
    Top = 200
    ParamData = <
      item
        DataType = ftInteger
        Name = 'DEID'
        ParamType = ptUnknown
      end>
    object qDeliveryDEID: TIntegerField
      FieldName = 'DEID'
      Origin = '"DEDELIVERY"."DEID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qDeliveryDDFIRSTDATE: TDateField
      FieldName = 'DDFIRSTDATE'
      Origin = '"DEDELIVERY"."DDFIRSTDATE"'
    end
    object qDeliveryDDDATE: TDateField
      FieldName = 'DDDATE'
      Origin = '"DEDELIVERY"."DDDATE"'
    end
    object qDeliveryDDDATEOK: TDateField
      FieldName = 'DDDATEOK'
      Origin = '"DEDELIVERY"."DDDATEOK"'
    end
    object qDeliveryATID: TIntegerField
      FieldName = 'ATID'
      Origin = '"DEDELIVERY"."ATID"'
    end
    object qDeliveryCDID: TIntegerField
      FieldName = 'CDID'
      Origin = '"DEDELIVERY"."CDID"'
    end
    object qDeliveryCRID: TIntegerField
      FieldName = 'CRID'
      Origin = '"DEDELIVERY"."CRID"'
    end
    object qDeliveryDDISTOWN: TIntegerField
      FieldName = 'DDISTOWN'
      Origin = '"DEDELIVERY"."DDISTOWN"'
    end
    object qDeliveryDDNEEDTIMESTART: TTimeField
      FieldName = 'DDNEEDTIMESTART'
      Origin = '"DEDELIVERY"."DDNEEDTIMESTART"'
    end
    object qDeliveryDDNEEDTIMEEND: TTimeField
      FieldName = 'DDNEEDTIMEEND'
      Origin = '"DEDELIVERY"."DDNEEDTIMEEND"'
    end
    object qDeliveryDDDEADTIME: TTimeField
      FieldName = 'DDDEADTIME'
      Origin = '"DEDELIVERY"."DDDEADTIME"'
    end
    object qDeliveryDDDEADTIMEAGREE: TIntegerField
      FieldName = 'DDDEADTIMEAGREE'
      Origin = '"DEDELIVERY"."DDDEADTIMEAGREE"'
    end
    object qDeliveryDDTIMEIN: TTimeField
      FieldName = 'DDTIMEIN'
      Origin = '"DEDELIVERY"."DDTIMEIN"'
    end
    object qDeliveryDDTIMEOUT: TTimeField
      FieldName = 'DDTIMEOUT'
      Origin = '"DEDELIVERY"."DDTIMEOUT"'
    end
    object qDeliveryDDAGREE: TIntegerField
      FieldName = 'DDAGREE'
      Origin = '"DEDELIVERY"."DDAGREE"'
    end
    object qDeliveryDDCOMMENT: TIBStringField
      FieldName = 'DDCOMMENT'
      Origin = '"DEDELIVERY"."DDCOMMENT"'
      Size = 255
    end
    object qDeliveryCLADRESS: TIBStringField
      FieldName = 'CLADRESS'
      Origin = '"CLADRES"."CLADRESS"'
      Size = 255
    end
    object qDeliveryCLCOMMENT: TIBStringField
      FieldName = 'CLCOMMENT'
      Origin = '"CLADRES"."CLCOMMENT"'
      Size = 255
    end
    object qDeliveryCRFIO: TIBStringField
      FieldName = 'CRFIO'
      Origin = '"CLPERSONS"."CRFIO"'
      Size = 255
    end
  end
  object quDelivery: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DEID,'
      '  DDFIRSTDATE,'
      '  DDDATE,'
      '  DDDATEOK,'
      '  ATID,'
      '  CDID,'
      '  CRID,'
      '  DDISTOWN,'
      '  DDNEEDTIMESTART,'
      '  DDNEEDTIMEEND,'
      '  DDDEADTIME,'
      '  DDDEADTIMEAGREE,'
      '  DDTIMEIN,'
      '  DDTIMEOUT,'
      '  DDAGREE,'
      '  DDCOMMENT,'
      '  CLADRESS,'
      '  CLCOMMENT,'
      '  CRFIO'
      'from DEDELIVERY '
      'where'
      '  DEID = :DEID')
    ModifySQL.Strings = (
      'update DEDELIVERY'
      'set'
      '  ATID = :ATID,'
      '  CDID = :CDID,'
      '  CRID = :CRID,'
      '  DDAGREE = :DDAGREE,'
      '  DDCOMMENT = :DDCOMMENT,'
      '  DDDATE = :DDDATE,'
      '  DDDATEOK = :DDDATEOK,'
      '  DDDEADTIME = :DDDEADTIME,'
      '  DDDEADTIMEAGREE = :DDDEADTIMEAGREE,'
      '  DDFIRSTDATE = :DDFIRSTDATE,'
      '  DDISTOWN = :DDISTOWN,'
      '  DDNEEDTIMEEND = :DDNEEDTIMEEND,'
      '  DDNEEDTIMESTART = :DDNEEDTIMESTART,'
      '  DDTIMEIN = :DDTIMEIN,'
      '  DDTIMEOUT = :DDTIMEOUT,'
      '  DEID = :DEID'
      'where'
      '  DEID = :OLD_DEID')
    InsertSQL.Strings = (
      'insert into DEDELIVERY'
      
        '  (ATID, CDID, CRID, DDAGREE, DDCOMMENT, DDDATE, DDDATEOK, DDDEA' +
        'DTIME, '
      
        '   DDDEADTIMEAGREE, DDFIRSTDATE, DDISTOWN, DDNEEDTIMEEND, DDNEED' +
        'TIMESTART, '
      '   DDTIMEIN, DDTIMEOUT, DEID)'
      'values'
      
        '  (:ATID, :CDID, :CRID, :DDAGREE, :DDCOMMENT, :DDDATE, :DDDATEOK' +
        ', :DDDEADTIME, '
      
        '   :DDDEADTIMEAGREE, :DDFIRSTDATE, :DDISTOWN, :DDNEEDTIMEEND, :D' +
        'DNEEDTIMESTART, '
      '   :DDTIMEIN, :DDTIMEOUT, :DEID)')
    DeleteSQL.Strings = (
      'delete from DEDELIVERY'
      'where'
      '  DEID = :OLD_DEID')
    Left = 864
    Top = 200
  end
  object dsDeInsurance: TDataSource
    DataSet = qDeInsurance
    Left = 736
    Top = 200
  end
  object qDeInsurance: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    ObjectView = True
    AfterInsert = qDeInsuranceAfterInsert
    BeforePost = qDealsBeforePost
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT *'
      '  FROM DEINSURANCE I'
      ' WHERE I.DEID = :DEID   ')
    UpdateObject = quDeInsurance
    Left = 760
    Top = 200
    ParamData = <
      item
        DataType = ftInteger
        Name = 'DEID'
        ParamType = ptUnknown
      end>
    object qDeInsuranceDEID: TIntegerField
      FieldName = 'DEID'
      Origin = '"DEINSURANCE"."DEID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qDeInsuranceDIINSGETTER: TIntegerField
      FieldName = 'DIINSGETTER'
      Origin = '"DEINSURANCE"."DIINSGETTER"'
    end
    object qDeInsuranceDICANWOINSUR: TIntegerField
      FieldName = 'DICANWOINSUR'
      Origin = '"DEINSURANCE"."DICANWOINSUR"'
    end
    object qDeInsuranceDIPRECOST: TIBBCDField
      FieldName = 'DIPRECOST'
      Origin = '"DEINSURANCE"."DIPRECOST"'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Precision = 18
      Size = 2
    end
    object qDeInsuranceDIINSTYPE: TIntegerField
      FieldName = 'DIINSTYPE'
      Origin = '"DEINSURANCE"."DIINSTYPE"'
    end
  end
  object quDeInsurance: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DEID,'
      '  DIINSGETTER,'
      '  DICANWOINSUR,'
      '  DIPRECOST,'
      '  DIINSTYPE'
      'from DEINSURANCE '
      'where'
      '  DEID = :DEID')
    ModifySQL.Strings = (
      'update DEINSURANCE'
      'set'
      '  DEID = :DEID,'
      '  DICANWOINSUR = :DICANWOINSUR,'
      '  DIINSGETTER = :DIINSGETTER,'
      '  DIINSTYPE = :DIINSTYPE,'
      '  DIPRECOST = :DIPRECOST'
      'where'
      '  DEID = :OLD_DEID')
    InsertSQL.Strings = (
      'insert into DEINSURANCE'
      '  (DEID, DICANWOINSUR, DIINSGETTER, DIINSTYPE, DIPRECOST)'
      'values'
      '  (:DEID, :DICANWOINSUR, :DIINSGETTER, :DIINSTYPE, :DIPRECOST)')
    DeleteSQL.Strings = (
      'delete from DEINSURANCE'
      'where'
      '  DEID = :OLD_DEID')
    Left = 784
    Top = 200
  end
  object dsInsuranceTariff: TDataSource
    DataSet = qInsuranceTariff
    Left = 840
    Top = 136
  end
  object qInsuranceTariff: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT *'
      '  FROM TARIFINSURANCE T'
      ' ORDER BY T.ITCOST')
    Left = 864
    Top = 136
  end
  object dsPayer: TDataSource
    DataSet = qPayer
    Left = 736
    Top = 168
  end
  object qPayer: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT S.SDID, S.SDNAME'
      '  FROM SYS_DIC S'
      ' WHERE S.SDPARID = 16'
      ' ORDER BY S.SDID')
    Left = 760
    Top = 168
  end
  object dsDeIntare: TDataSource
    DataSet = qDeIntare
    Left = 544
    Top = 624
  end
  object qDeIntare: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qDeGoodsAfterInsert
    BeforePost = qDealsBeforePost
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT *'
      '  FROM DEINTARE I'
      ' WHERE I.DEID = :DEID   ')
    UpdateObject = quDeIntare
    Left = 568
    Top = 624
    ParamData = <
      item
        DataType = ftInteger
        Name = 'DEID'
        ParamType = ptUnknown
      end>
    object qDeIntareDEID: TIntegerField
      FieldName = 'DEID'
      Origin = '"DEINTARE"."DEID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qDeIntareDNCNT: TIntegerField
      Alignment = taCenter
      FieldName = 'DNCNT'
      Origin = '"DEINTARE"."DNCNT"'
    end
  end
  object quDeIntare: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DEID,'
      '  DNCNT'
      'from DEINTARE '
      'where'
      '  DEID = :DEID')
    ModifySQL.Strings = (
      'update DEINTARE'
      'set'
      '  DEID = :DEID,'
      '  DNCNT = :DNCNT'
      'where'
      '  DEID = :OLD_DEID')
    InsertSQL.Strings = (
      'insert into DEINTARE'
      '  (DEID, DNCNT)'
      'values'
      '  (:DEID, :DNCNT)')
    DeleteSQL.Strings = (
      'delete from DEINTARE'
      'where'
      '  DEID = :OLD_DEID')
    Left = 592
    Top = 624
  end
  object dsRetDoc: TDataSource
    DataSet = qRetDoc
    Left = 544
    Top = 592
  end
  object qRetDoc: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qDeGoodsAfterInsert
    BeforePost = qDealsBeforePost
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT *'
      '  FROM DERETDOCS I'
      ' WHERE I.DEID = :DEID   ')
    UpdateObject = quRetDoc
    Left = 568
    Top = 592
    ParamData = <
      item
        DataType = ftInteger
        Name = 'DEID'
        ParamType = ptUnknown
      end>
    object qRetDocDEID: TIntegerField
      FieldName = 'DEID'
      Origin = '"DERETDOCS"."DEID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qRetDocDRTYPE: TIntegerField
      FieldName = 'DRTYPE'
      Origin = '"DERETDOCS"."DRTYPE"'
    end
    object qRetDocDREMAIL: TIBStringField
      FieldName = 'DREMAIL'
      Origin = '"DERETDOCS"."DREMAIL"'
      Size = 80
    end
  end
  object quRetDoc: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DEID,'
      '  DRTYPE,'
      '  DREMAIL'
      'from DERETDOCS '
      'where'
      '  DEID = :DEID')
    ModifySQL.Strings = (
      'update DERETDOCS'
      'set'
      '  DEID = :DEID,'
      '  DREMAIL = :DREMAIL,'
      '  DRTYPE = :DRTYPE'
      'where'
      '  DEID = :OLD_DEID')
    InsertSQL.Strings = (
      'insert into DERETDOCS'
      '  (DEID, DREMAIL, DRTYPE)'
      'values'
      '  (:DEID, :DREMAIL, :DRTYPE)')
    DeleteSQL.Strings = (
      'delete from DERETDOCS'
      'where'
      '  DEID = :OLD_DEID')
    Left = 592
    Top = 592
  end
  object dsRetDocTypes: TDataSource
    DataSet = qRetDocTypes
    Left = 624
    Top = 592
  end
  object qRetDocTypes: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT S.SDID, S.SDNAME'
      '  FROM SYS_DIC S'
      ' WHERE S.SDPARID = 19'
      ' ORDER BY S.SDNAME')
    Left = 648
    Top = 592
  end
  object dsPlombs: TDataSource
    DataSet = qPlombs
    Left = 544
    Top = 560
  end
  object qPlombs: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qPlombsAfterInsert
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT *'
      '  FROM DEPLOMBS I'
      ' WHERE I.DEID = :DEID   ')
    UpdateObject = quPlombs
    GeneratorField.Field = 'DPID'
    GeneratorField.Generator = 'GDEPLOMBS'
    Left = 568
    Top = 560
    ParamData = <
      item
        DataType = ftInteger
        Name = 'DEID'
        ParamType = ptUnknown
        Size = 4
      end>
    object qPlombsDPID: TIntegerField
      FieldName = 'DPID'
      Origin = '"DEPLOMBS"."DPID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qPlombsDEID: TIntegerField
      FieldName = 'DEID'
      Origin = '"DEPLOMBS"."DEID"'
    end
    object qPlombsDPPLOMBTYPE: TIntegerField
      DisplayLabel = #1058#1080#1087' '#1087#1083#1086#1084#1073#1099
      FieldName = 'DPPLOMBTYPE'
      Origin = '"DEPLOMBS"."DPPLOMBTYPE"'
    end
    object qPlombsDPCNT: TIntegerField
      DisplayLabel = #1050#1086#1083'-'#1074#1086
      FieldName = 'DPCNT'
      Origin = '"DEPLOMBS"."DPCNT"'
    end
    object qPlombsDPNUMBERS: TIBStringField
      DisplayLabel = #1053#1086#1084#1077#1088#1072' '#1087#1083#1086#1084#1073
      FieldName = 'DPNUMBERS'
      Origin = '"DEPLOMBS"."DPNUMBERS"'
      Size = 255
    end
  end
  object quPlombs: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DPID,'
      '  DEID,'
      '  DPPLOMBTYPE,'
      '  DPCNT,'
      '  DPNUMBERS'
      'from DEPLOMBS '
      'where'
      '  DPID = :DPID')
    ModifySQL.Strings = (
      'update DEPLOMBS'
      'set'
      '  DEID = :DEID,'
      '  DPCNT = :DPCNT,'
      '  DPID = :DPID,'
      '  DPNUMBERS = :DPNUMBERS,'
      '  DPPLOMBTYPE = :DPPLOMBTYPE'
      'where'
      '  DPID = :OLD_DPID')
    InsertSQL.Strings = (
      'insert into DEPLOMBS'
      '  (DEID, DPCNT, DPID, DPNUMBERS, DPPLOMBTYPE)'
      'values'
      '  (:DEID, :DPCNT, :DPID, :DPNUMBERS, :DPPLOMBTYPE)')
    DeleteSQL.Strings = (
      'delete from DEPLOMBS'
      'where'
      '  DPID = :OLD_DPID')
    Left = 592
    Top = 560
  end
  object qPlombTypes: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT S.SDID, S.SDNAME'
      '  FROM SYS_DIC S'
      ' WHERE S.SDPARID = 20'
      ' ORDER BY S.SDID')
    Left = 648
    Top = 560
  end
  object dsPlombTypes: TDataSource
    DataSet = qPlombTypes
    Left = 624
    Top = 560
  end
  object qLastCorr: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    DataSource = dlgDS
    SQL.Strings = (
      'UPDATE DEALS D'
      '   SET D.DEUSERUPD = CURRENT_USER,'
      '       D.DEWHENUPD = CURRENT_TIMESTAMP'
      ' WHERE D.DEID = :DEID')
    Left = 456
    Top = 80
    ParamData = <
      item
        DataType = ftInteger
        Name = 'DEID'
        ParamType = ptUnknown
      end>
  end
  object dsTarifTypes: TDataSource
    DataSet = qTarifTypes
    Left = 264
    Top = 8
  end
  object qTarifTypes: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT T.TTID, T.TTNAME'
      '  FROM TARIFTYPES T'
      ' ORDER BY T.TTORDER')
    Left = 288
    Top = 8
  end
  object qTarifParams: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT P.TMCODE, P.TMVALUE'
      '  FROM TARIFPARAMS P, PERIODS R'
      ' WHERE P.PEID = R.PEID'
      '   AND :DDATE BETWEEN R.PESTARTDEATE AND R.PEENDDATE'
      '   AND P.TTID = :TTID')
    Left = 128
    Top = 112
    ParamData = <
      item
        DataType = ftDate
        Name = 'DDATE'
        ParamType = ptUnknown
      end
      item
        DataType = ftInteger
        Name = 'TTID'
        ParamType = ptUnknown
      end>
  end
  object qDefaultBill: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT C.OCMAINBILL'
      '  FROM OFFICES O, OFCOMPANIES C'
      ' WHERE O.OFMAINID = C.OFID'
      '   AND O.OFID = :OFID   ')
    Left = 160
    Top = 112
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'OFID'
        ParamType = ptUnknown
      end>
  end
  object qNDS: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT P.NSSTAVKA'
      '  FROM NDS P, PERIODS R'
      ' WHERE P.PEID = R.PEID'
      '   AND :DDATE BETWEEN R.PESTARTDEATE AND R.PEENDDATE')
    Left = 192
    Top = 112
    ParamData = <
      item
        DataType = ftDate
        Name = 'DDATE'
        ParamType = ptUnknown
      end>
  end
  object qTransTariff: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT FIRST 1 A.*'
      '  FROM'
      ' (SELECT T.TFCOST, T.TFWEIGHT, T.TFMINCOST'
      '    FROM TARIFTRANSPORTATION T, OFFICES O, PERIODS P'
      '   WHERE T.TFOFIDSEND = O.OFMAINID'
      '     AND O.OFTYPE = 3'
      '     AND O.OFID = :OFIDSEND'
      '     AND T.TFOFIDDEST = :OFIDDEST'
      '     AND T.TTID = :TTID'
      '     AND T.TFWEIGHT < :WEIGHT'
      '     AND T.PEID = P.PEID'
      '     AND :DDATE BETWEEN P.PESTARTDEATE AND P.PEENDDATE'
      '  UNION'
      '  SELECT T.TFCOST, T.TFWEIGHT, T.TFMINCOST'
      '    FROM TARIFTRANSPORTATION T, OFFICES O, PERIODS P'
      '   WHERE T.TFOFIDSEND = O.OFID'
      '     AND O.OFTYPE <> 3'
      '     AND O.OFID = :OFIDSEND'
      '     AND T.TFOFIDDEST = :OFIDDEST'
      '     AND T.TTID = :TTID'
      '     AND T.TFWEIGHT < :WEIGHT'
      '     AND T.PEID = P.PEID'
      '     AND :DDATE BETWEEN P.PESTARTDEATE AND P.PEENDDATE'
      '   ORDER BY 2 DESC) A')
    Left = 224
    Top = 112
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'OFIDSEND'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OFIDDEST'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'TTID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'WEIGHT'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'DDATE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OFIDSEND'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OFIDDEST'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'TTID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'WEIGHT'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'DDATE'
        ParamType = ptUnknown
      end>
  end
  object qInvItemsTemp: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'SELECT *'
      '  FROM DEINVITEMS D'
      ' WHERE D.DVID IS NULL   ')
    UpdateObject = qUInvItemsTemp
    GeneratorField.Field = 'DVID'
    GeneratorField.Generator = 'GDEINVITEMS'
    GeneratorField.ApplyEvent = gamOnPost
    Left = 256
    Top = 112
    object qInvItemsTempDVID: TIntegerField
      FieldName = 'DVID'
      Origin = '"DEINVITEMS"."DVID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qInvItemsTempDIID: TIntegerField
      FieldName = 'DIID'
      Origin = '"DEINVITEMS"."DIID"'
    end
    object qInvItemsTempSVID: TIntegerField
      FieldName = 'SVID'
      Origin = '"DEINVITEMS"."SVID"'
    end
    object qInvItemsTempDVHAND: TIBBCDField
      FieldName = 'DVHAND'
      Origin = '"DEINVITEMS"."DVHAND"'
      Precision = 18
      Size = 2
    end
    object qInvItemsTempDVPRICE: TIBBCDField
      FieldName = 'DVPRICE'
      Origin = '"DEINVITEMS"."DVPRICE"'
      Precision = 18
      Size = 2
    end
    object qInvItemsTempDVQTTY: TIntegerField
      FieldName = 'DVQTTY'
      Origin = '"DEINVITEMS"."DVQTTY"'
    end
    object qInvItemsTempDVAMOUNT: TIBBCDField
      FieldName = 'DVAMOUNT'
      Origin = '"DEINVITEMS"."DVAMOUNT"'
      Precision = 18
      Size = 2
    end
    object qInvItemsTempDVDISCOUNT: TIBBCDField
      FieldName = 'DVDISCOUNT'
      Origin = '"DEINVITEMS"."DVDISCOUNT"'
      Precision = 18
      Size = 2
    end
    object qInvItemsTempDVMARKUP: TIBBCDField
      FieldName = 'DVMARKUP'
      Origin = '"DEINVITEMS"."DVMARKUP"'
      Precision = 18
      Size = 2
    end
    object qInvItemsTempDVTOTAL: TIBBCDField
      FieldName = 'DVTOTAL'
      Origin = '"DEINVITEMS"."DVTOTAL"'
      Precision = 18
      Size = 2
    end
    object qInvItemsTempDVNDS: TIBBCDField
      FieldName = 'DVNDS'
      Origin = '"DEINVITEMS"."DVNDS"'
      Precision = 18
      Size = 2
    end
  end
  object qUInvItemsTemp: TIBUpdateSQL
    ModifySQL.Strings = (
      'null;')
    InsertSQL.Strings = (
      'null;')
    DeleteSQL.Strings = (
      'null;')
    Left = 272
    Top = 112
  end
  object qServiceNames: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT *'
      '  FROM SERVICES S'
      ' ORDER BY S.SVID')
    Left = 304
    Top = 112
  end
  object qCheckNDS: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT B.OBID, C.OCNDS'
      '  FROM OFFBILLS B, OFCOMPANIES C'
      ' WHERE B.OFID = C.OFID'
      ' ORDER BY B.OBID')
    Left = 336
    Top = 112
  end
  object qPackTariff: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT T.TPCOST'
      '  FROM TARIFPACK T, PERIODS P'
      ' WHERE T.TTID = :TTID'
      '   AND T.TPTYPE = :TPTYPE'
      '   AND T.PEID = P.PEID'
      '   AND :DDATE BETWEEN P.PESTARTDEATE AND P.PEENDDATE')
    Left = 400
    Top = 112
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'TTID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'TPTYPE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'DDATE'
        ParamType = ptUnknown
      end>
  end
  object qPlombTariff: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT T.TPCOST'
      '  FROM TARIFPLOMBS T, PERIODS P'
      ' WHERE T.TPTYPE = :TPTYPE'
      '   AND T.PEID = P.PEID'
      '   AND :DDATE BETWEEN P.PESTARTDEATE AND P.PEENDDATE')
    Left = 368
    Top = 112
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'TPTYPE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'DDATE'
        ParamType = ptUnknown
      end>
  end
  object qETCTariff: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT T.TECOST'
      '  FROM TARIFETC T, PERIODS P'
      ' WHERE T.TETYPE = :TPTYPE'
      '   AND T.PEID = P.PEID'
      '   AND :DDATE BETWEEN P.PESTARTDEATE AND P.PEENDDATE')
    Left = 432
    Top = 112
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'TPTYPE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'DDATE'
        ParamType = ptUnknown
      end>
  end
  object qCapDelTariff: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT T.TCCOST'
      '  FROM TARIFCAPTURE T, PERIODS P'
      ' WHERE T.OFID = :OFID'
      '   AND T.TTID = :TTID'
      '   AND T.ATID = :ATID'
      '   AND T.TCISTOWN = :ISTOWN'
      '   AND T.PEID = P.PEID'
      '   AND :DDATE BETWEEN P.PESTARTDEATE AND P.PEENDDATE')
    Left = 464
    Top = 112
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'OFID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'TTID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ATID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ISTOWN'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'DDATE'
        ParamType = ptUnknown
      end>
  end
  object qDeadTimeTariff: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT T.TDCOST'
      '  FROM TARIFDEADTIME T, PERIODS P'
      ' WHERE T.OFID = :OFID'
      '   AND T.ATID = :ATID'
      '   AND T.PEID = P.PEID'
      '   AND :DDATE BETWEEN P.PESTARTDEATE AND P.PEENDDATE')
    Left = 496
    Top = 112
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'OFID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ATID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'DDATE'
        ParamType = ptUnknown
      end>
  end
  object qCheckShablon: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT C.CSID'
      '  FROM CLDESHABLONS C'
      ' WHERE C.CSTYPE = :CSTYPE'
      '   AND C.CLID = :CLID'
      '   AND C.CSLINKOFID = :CSLINKOFID'
      '   AND C.CSLINKCLID = :CSLINKCLID   ')
    Left = 736
    Top = 232
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'CSTYPE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CLID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CSLINKOFID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CSLINKCLID'
        ParamType = ptUnknown
      end>
  end
  object qShablon_S: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT C.CSID, C.SVID, C.CSPAYER, S.SVNAME, D.SDNAME, H.TTID'
      '  FROM CLDESERVICES C, SERVICES S, SYS_DIC D, CLDESHABLONS H'
      ' WHERE C.CSID = :CSID'
      '   AND C.SVID = S.SVID'
      '   AND C.CSPAYER = D.SDID'
      '   AND C.CSID = H.CSID')
    Left = 768
    Top = 232
    ParamData = <
      item
        DataType = ftInteger
        Name = 'CSID'
        ParamType = ptUnknown
      end>
    object qShablon_SCSID: TIntegerField
      FieldName = 'CSID'
      Origin = '"CLDESERVICES"."CSID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qShablon_SSVID: TIntegerField
      FieldName = 'SVID'
      Origin = '"CLDESERVICES"."SVID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qShablon_SCSPAYER: TIntegerField
      FieldName = 'CSPAYER'
      Origin = '"CLDESERVICES"."CSPAYER"'
    end
    object qShablon_SSVNAME: TIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      FieldName = 'SVNAME'
      Origin = '"SERVICES"."SVNAME"'
      Size = 40
    end
    object qShablon_SSDNAME: TIBStringField
      DisplayLabel = #1055#1083#1072#1090#1077#1083#1100#1097#1080#1082
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qShablon_STTID: TIntegerField
      FieldName = 'TTID'
      Origin = '"CLDESHABLONS"."TTID"'
    end
  end
  object qShablon_R: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT C.CSID, C.SVID, C.CSPAYER, S.SVNAME, D.SDNAME, H.TTID'
      '  FROM CLDESERVICES C, SERVICES S, SYS_DIC D, CLDESHABLONS H'
      ' WHERE C.CSID = :CSID'
      '   AND C.SVID = S.SVID'
      '   AND C.CSPAYER = D.SDID'
      '   AND C.CSID = H.CSID')
    Left = 800
    Top = 232
    ParamData = <
      item
        DataType = ftInteger
        Name = 'CSID'
        ParamType = ptUnknown
      end>
    object qShablon_RCSID: TIntegerField
      FieldName = 'CSID'
      Origin = '"CLDESERVICES"."CSID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qShablon_RSVID: TIntegerField
      FieldName = 'SVID'
      Origin = '"CLDESERVICES"."SVID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qShablon_RCSPAYER: TIntegerField
      FieldName = 'CSPAYER'
      Origin = '"CLDESERVICES"."CSPAYER"'
    end
    object qShablon_RSVNAME: TIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      FieldName = 'SVNAME'
      Origin = '"SERVICES"."SVNAME"'
      Size = 40
    end
    object qShablon_RSDNAME: TIBStringField
      DisplayLabel = #1055#1083#1072#1090#1077#1083#1100#1097#1080#1082
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qShablon_RTTID: TIntegerField
      FieldName = 'TTID'
      Origin = '"CLDESHABLONS"."TTID"'
    end
  end
  object qAgree: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT A.CAID'
      '  FROM CLAGREEMENTS A'
      ' WHERE :DDATE BETWEEN A.CABEGIN AND A.CAEND'
      '   AND A.CLID = :CLID   ')
    Left = 736
    Top = 272
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'DDATE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CLID'
        ParamType = ptUnknown
      end>
  end
  object qADiscount: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT *'
      '  FROM CLAGRDISCOUNTS C'
      ' WHERE C.CAID = :CAID'
      '   AND C.CSTYPE = :CSTYPE'
      '   AND C.SVID = :SVID   ')
    Left = 768
    Top = 272
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'CAID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CSTYPE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SVID'
        ParamType = ptUnknown
      end>
  end
  object qCheckWhere: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT '#39'True'#39' Result'
      '  FROM TABLEONE'
      ' WHERE (0 > 1)'
      'UNION'
      'SELECT '#39'False'#39' Result'
      '  FROM TABLEONE'
      ' WHERE NOT (0 > 1)')
    Left = 800
    Top = 272
  end
  object qDeDiscounts: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qDeGoodsAfterInsert
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT *'
      '  FROM DEDISCOUNTS D'
      ' WHERE D.DEID = :DEID   ')
    UpdateObject = quDeDiscounts
    Left = 832
    Top = 232
    ParamData = <
      item
        DataType = ftInteger
        Name = 'DEID'
        ParamType = ptUnknown
      end>
  end
  object quDeDiscounts: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  DEID,'
      '  SVID,'
      '  CSID'
      'from DEDISCOUNTS '
      'where'
      '  CSID = :CSID and'
      '  DEID = :DEID and'
      '  SVID = :SVID')
    ModifySQL.Strings = (
      'update DEDISCOUNTS'
      'set'
      '  CSID = :CSID,'
      '  DEID = :DEID,'
      '  SVID = :SVID'
      'where'
      '  CSID = :OLD_CSID and'
      '  DEID = :OLD_DEID and'
      '  SVID = :OLD_SVID')
    InsertSQL.Strings = (
      'insert into DEDISCOUNTS'
      '  (CSID, DEID, SVID)'
      'values'
      '  (:CSID, :DEID, :SVID)')
    DeleteSQL.Strings = (
      'delete from DEDISCOUNTS'
      'where'
      '  CSID = :OLD_CSID and'
      '  DEID = :OLD_DEID and'
      '  SVID = :OLD_SVID')
    Left = 856
    Top = 232
  end
  object qCheckZone: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT C.CLISTOWN'
      '  FROM CLADRES C'
      ' WHERE C.CDID = :CDID')
    Left = 872
    Top = 168
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'CDID'
        ParamType = ptUnknown
      end>
  end
  object qCheckInsur: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT C.CITYPE, C.CIGOODSCOST'
      '  FROM CLAGREEMENTS A, CLAGRINSURANCE C'
      ' WHERE A.CAID = C.CAID'
      '   AND :DDATE BETWEEN A.CABEGIN AND A.CAEND'
      '   AND A.CLID = :CLID   ')
    Left = 832
    Top = 272
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'DDATE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CLID'
        ParamType = ptUnknown
      end>
  end
  object qCalcATID: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT FIRST 1 A.ATID'
      '  FROM AUTOTYPES A'
      ' WHERE A.ATWEIGHTSUPPORTING >= :W'
      '   AND A.ATVOLUME >= :V'
      ' ORDER BY A.ATVOLUME, A.ATWEIGHTSUPPORTING')
    Left = 736
    Top = 304
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'W'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'V'
        ParamType = ptUnknown
      end>
  end
  object qTarifPlan: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    DataSource = dlgDS
    SQL.Strings = (
      'SELECT T.TTID, T.TTISVOL, T.TTISCPECIAL'
      '  FROM TARIFTYPES T'
      ' WHERE T.TTID = :TTID   ')
    Left = 528
    Top = 112
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'TTID'
        ParamType = ptUnknown
      end>
  end
  object qCheckTerminal: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT O.OFTYPE'
      '  FROM OFFICES O'
      ' WHERE O.OFID = :OFID   ')
    Left = 560
    Top = 112
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'OFID'
        ParamType = ptUnknown
      end>
  end
end
